Select Code to Download

$pat = "m/foo/";
print "foo1\n" if "foo" =~ $pat;

...

$pat = qr/foo/;
print "foo3\n" if "foo" =~ m/$pat/;

$pat = ($_ =~ m/foo/);
print "foo2\n" if "foo" =~ $pat;