In reply to 40 characters, works even in Perl4 by I0 in thread Match nested parens of arbitrary depth in 56 characters by dchetlin