让我们说我有字符串“快速的棕色狐狸跳过懒惰的狗”，我可以改变为“慢棕色狐狸跳过精力充沛的狗”与一个正则表达式？目前，对于这种情况，我使用两组正则表达式。 (在这种情况下，我使用s / quick / slow /后跟s / lazy / energetic /。)
替换的第二部分是双引号字符串，因此可能发生任何正常插值。这意味着您可以使用捕获的值索引到散列：
#!/usr/bin/perl
use strict;
use warnings;
my %replace = (
quick => "slow",lazy => "energetic",);
my $regex = join "|",keys %replace;
$regex = qr/$regex/;
my $s = "The quick brown fox jumps over the lazy dog";
$s =~ s/($regex)/$replace{$1}/g;
print "$s\n";
