RosettaCodeData/Task/Regular-expressions/Perl/regular-expressions-3.pl
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07: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;