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{/$_/};$_=!$@'