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

Заявление:

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

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

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

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

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