$lines =~ s/foo/bar/gms;