sub fn {
   my ($old) = @_;
   (my $new = $old) =~ s/.../.../;
   ...
}