RosettaCodeData/Task/Regular-expressions/Perl/regular-expressions-3.pl
2023-07-01 13:44:08 -04:00

3 lines
142 B
Perl

$string = "I am a string";
$string2 = $string =~ s/ a / another /r; # $string2 == "I am another string", $string is unaltered
print $string2;