perl s表达式r选项

#! perl
$x = "I like dogs # dogs";
$y = $x =~ s/dogs/cats/g; #没有/r选项，直接修改了$x的字符串为"I like cats # cats",$y为$x =~ s/dogs/cats/的替换的个数,这里为2


print $x,"\n";
print $y,"\n";


$x = "I like dogs # dogs";
$y = $x =~ s/dogs/cats/rg; #/r选项使得$x的字符串不变，返回的结果为修改后的字符串,即$y为"I like cats # cats"


print $x,"\n";
print $y,"\n";