$re = qr/(?:(?>[^()]*)|\((??{$re})\))+/;
print 'I (pity (the (fool) who) dont) know (regexes)' =~ /^$re$/;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print