非破壊的置換
http://perldoc.jp/docs/perl/5.14.0/perl5140delta.pod

my $old = "cat";
my $new = $old =~ s/cat/dog/r;
# $old is "cat" and $new is "dog"