$a = "2foobar\n";
print $a if $a =~ m"foo";
print $a if $a =~ eval{"bar"};
print $a if $a =~ q!foo!;
print $a if $a =~ (6*7-40);   # yes this evaluates to 2, gets stringified and matches