如何在保留原始字符串的同时对字符串执行Perl替换？

在Perl中，可以使用正则表达式和s操作符来执行字符串替换。为了在保留原始字符串的同时对字符串执行Perl替换，可以使用$&变量来访问匹配的子字符串。

以下是一个示例：

my $original_string = "Hello, world!";
my $pattern = /world/;
my $replacement = "Perl";

my $new_string = $original_string =~ s/$pattern/$replacement/r;

print "Original string: $original_string\n";
print "New string: $new_string\n";

在这个示例中，我们将原始字符串"Hello, world!"存储在$original_string变量中，并使用正则表达式/world/来匹配要替换的子字符串。我们将替换字符串"Perl"存储在$replacement变量中。

我们使用s操作符和/r修饰符来执行替换，并将结果存储在$new_string变量中。/r修饰符表示返回替换后的字符串，而不是修改原始字符串。

最后，我们打印原始字符串和新字符串。

输出：

Original string: Hello, world!
New string: Hello, Perl!

这样，我们就可以在保留原始字符串的同时对字符串执行Perl替换。