正则表达式的无损替换

从Perl 5.14增加了一个/r修饰符，专门用于无损替换。
原先s///操作完成后返回的是成功替换的次数，加上/r之后，就会保留原来字符串变量中的值不变，而把替换结果作为替换操作的返回值
返回。

use 5.014;

my $yuanxian = "david xinxin";
my $copy = $yuanxian =~ s/david/mama/r;