in reply to Eternal question of parsing parentheses

use Regexp::Common qw /balanced/;

/($RE{balanced}{-parens=>’()’})/ and print $1;

[download]

In Section Seekers of Perl Wisdom