my $new = $_;
$new =~ s/foo/bar/g;