Select Code to Download

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

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