RosettaCodeData/Task/Regular-expressions/Perl/regular-expressions-3.pl

4 lines
142 B
Perl
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
$string = "I am a string";
$string2 = $string =~ s/ a / another /r; # $string2 == "I am another string", $string is unaltered
print $string2;