$m = ($s =~ /foo/);