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