sh$ perl -e '$a = $b = "word?dude"; print "$a $b\n" if $a =~ m/$b/'