$x =~ s/foo/bar/ if $x =~ m/foo/;