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