|(?-1)                         # must be a ( or ) so recurse

kepler: Please note that the  (?-PARNO) regex operator is only available with Perl version 5.10 and above. Please see Extended Patterns in perlre.