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