Perl | quotemeta() Function

quotemeta() function in Perl escapes all meta-characters in the value passed to it as parameter.

Example:

Input : "GF*..G" 
Output : "GF\*\.\.G"

Syntax: quotemeta(value)

Parameter:
value: String containing meta-characters

Return:
a string with all meta-characters escaped

Example 1:

#!/usr/bin/perl -w
$string = "GF*\n[.]*G";

print "Original String: \n";
print $string;

# Applying operation on the String
print "\n\nString after operation: \n";
print quotemeta($string);

Output:

Original String: 
GF*
[.]*G

String after operation: 
GF\*\
\[\.\]\*G

Example 2:

#!/usr/bin/perl -w
$string = "GF+n\{.}/G";

print "Original String: \n";
print $string;

# Applying operation on the String
print "\n\nString after operation: \n";
print quotemeta($string);

Output:

Original String: 
GF+n{.}/G

String after operation: 
GF\+n\{\.\}\/G