Perl 通过替换从另一个字符串变量定义一个字符串变量？

我有时需要两个字符串变量，其中第二个变量的值是通过字符替换从第一个变量派生的

有没有比下面显示的更简洁的方法？使用两个单独的命令从第一个变量定义第二个变量容易出现错误，而且很麻烦：

# Example: "pstopdf" and "ps2pdf":
my $name1 = "pstopdf";
my $name2 = $name1;
$name2 =~ s/to/2/;   

其中一个问题是，例如，如果您在

映射中执行这种转换，它将非常有用

使用
/r
标志，您可以编写

my $name2 = $name1 =~ s/to/2/r;

@daxim的可能重复：这是一个完全不同的问题。
my $name2 = $name1 =~ s/to/2/r;