Select Code to Download

#\E not necessary at end of pattern
/^\Q$string/ and print "A match!\n";
...
#or, same thing
$string=quotemeta $string;
/^$string/ and print "A match!\n";