in reply to RE:(4) Balancing Parens in thread Balancing Parens
$_='
Acrobatics, P/H, default(DX-6), page(B48)
Bicycling, P/E, default(DX-4, SK:Motorcycle), page(B48)
Breath Control, M/VH, page(B48)
Free Fall, P/A, default(DX-5, HT-5), page(B48)
Jumping, P/E, page(B48)
Parachuting, P/E, default(DX-4, IQ-6), page(B48)
Swimming, P/E, gives(=@max(@int(%Level/10), 1) to Swim), default(DX-4,
+ ST-5), page(B49)
';
($re=$_)=~s/((\()|(\))|.)/$2\Q$1\E$3/gs;
@$ = (eval{/$re/});
die $@ if $@=~/unmatched/;
$re = join'|',map{quotemeta}@$;
print join"\n",/((?:$re|[^,])+)/g;
|