Как выполнить замену Perl в строке, сохранив оригинал?

Заявление:

(my $newstring = $oldstring) =~ s/foo/bar/g;

Что эквивалентно:

my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

В find-and-replace качестве альтернативы, начиная perl5 с Perl 5.13.2, вы можете regularexpression использовать /r для выполнения perl5 неразрушающей замены:

use 5.013;
#...
my $newstring = $oldstring =~ s/foo/bar/gr;