perl -n0e'$r=qr/(?>[^()]*)|\((??{$r})+\)/;print/^$r*$/'