my $string = 'abc!hu(';
print "\Q$string\E\n";    # prints abc\!hu\(
print quotemeta $string;  # prints abc\!hu\(