perl -MO=Deparse -e '$a = "foo"; print 1 if $a =~ "foo"'
$a = 'foo';
print 1 if $a =~ /foo/;