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

Question

我有时需要两个字符串变量,其中第二个变量的值来自第一个字符替换.

有没有比下面显示的更简洁的方法呢？使用两个单独的命令来定义第一个var来自第一个变量很容易出错并且很麻烦:

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

Answer 1

(my $name2 = $name1) =~ s/to/2/;