perl 匹配嵌套括号问题

 Text as follows：

(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)

Match:

1+2 123+ 888 3 ddf sdf sdfdsf gggg

 

 

#!/usr/bin/perl
use strict;
use warnings;
use re 'eval';
my $str= '(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)';
my @arr;
my $re = qr/(?{local $a=0})(?>(?:([^()]+)(?{push @arr,$1})| #将匹配到得内容push到@arr
             #固化分组，减少回朔。
                        \((?{$a++})|   #遇到开括号$a+1
                        \)(?(?{$a!=0})(?{$a--})|       #如果$a不等于0则遇到闭括号$a-1
                        (?!)))*)(?(?{$a!=0})(?!))/x; # 否则继续匹配，如果继续遇到$a不等于0 继续匹配到行尾
                        1 while($str =~ /\($re\)/g);
    print join("\n",@arr);