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

4 lines
142 B
Perl
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
$string = "I am a string";
$string2 = $string =~ s/ a / another /r; # $string2 == "I am another string", $string is unaltered
print $string2;