Perl matching nested parentheses problem

text: (1+2(123+ (888)3) DDF) wwww (SDF (SDFDSF) GGGG) Match :1+21238883 ddf SDF SDFDSF gggg

Match code:

#!/usr/bin/perl UseStrict; Usewarnings; UseRe'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 the matched content to the @arr# curing group to reduce the return. \((? {$a++})|#Encounter opening parenthesis $a+1\)(? (? {$a!=0})(? {$a--})|#if $ A does not equal 0 then it encounters a closing parenthesis $a-1(?!))) *)(? (? {$a!=0})(?!)) /x;#otherwise continue to match if you continue to encounter $ A not equal to 0 to continue matching to end of line1  while($str=~ /\($re\)/g);Print Join("\ n",@arr);

Perl matching nested parentheses problem