Look at \Q and \E in perlre.

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