perl  -e 'use warnings; $teste=q(\Qfoo\E);print 42 if "(foo" =~ m/\b$teste\b/'

##</code><code>##

perl -e '$x =  q(\b); $y = "$x"; print $y'