This one has no performance issues and is even a little bit shorter. Yay!

#!perl -l
$r=qr/\((??{$r})*\)/;map/^$r+$/&&print,glob"{(,)}"x2x pop

  -bass

Reply via email to