abowley@lave:~$ perl -e '$a = $b = "word?dude"; print "$a $b\n" if $a =~ m/\Q$b/' word?dude word?dude