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";
    }
}