perl正则表达式返回多个匹配

返回()中的文本。

方法一：

sub test {
my $text = '(zdd)(autumn)(123)(456)';
while ($text =~ /\((.*?)\)/g) {
print $1, "\n";
    }
}

方法二：

sub test1 {
my $text = '(zdd)(autumn)(123)(456)';
my @matches = ($text =~ /\((.*?)\)/g) ;
foreach my $match (@matches) {
print $match, "\n";
    }
}

==