38 characters

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

perl -p0e'y/()//cd;eval{/$_/};$_=!$@'

Comment on 38 characters Download Code

In Section Cool Uses for Perl