例：

my $re = qr{\wat};
my $text = "a cat a hat the bat some fat for a rat";
... (substitute $re -> 'xxx' saving matches in @matches)
# $text -> 'a xxx a xxx the xxx some xxx for a xxx'
# @matches -> qw(cat hat bat fat rat)

我试过了：@matches =($text = ~s {($re)} {xxx} g)但它给了我一个计数.

我是否必须在模式$re的末尾添加一些可执行代码？

更新：这是一个使用代码执行扩展模式(？{…})的方法：

use re 'eval';  # perl complained otherwise
my $re = qr{\wat};
my $text = "a cat a hat the bat some fat for a rat";

my @x;
$text =~ s{ ($re)(?{ push(@x,$1)}) }{xxx}gx;

say "text = $text";
say Dumper(\@x); use Data::Dumper;