Вы смотрите документацию по Perl 5.14.Этот пример не появляется в документации по Perl 5.12 .
Вы можете видеть, что он помечен как новая функция в perl 5.13.2 delta .
Вы можете скопировать переменную и , затем изменить ее для достижения того же эффекта в более старых версиях Perl.
$x = "I like dogs.";
$y = $x;
$y =~ s/dogs/cats/;
print "$x $y\n";
Или вы можете использовать идиоматическую однострочную строку":
$x = "I like dogs.";
($y = $x) =~ s/dogs/cats/;
print "$x $y\n";