Select Code to Download

$string = '(.asdf[0-9])$';
$foo = '(.asdf[0-9])$';
...
if ( $foo =~ m/\Q$string\E/ ) {
    print "will work\n";
}