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
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