(my $copy = $original) =~ s/foo/bar/;