#!perl -pl $r='(?|\(([^)]+)\)|([^+*]+))';$f=$m=s!$r/$r!($1|$2)=~y//-/cr!ger;$f=~y/-!-,0-z/| /;$f=~s/(^| )\|/$1@/g;formline"$f'$m'$f'",/$r\//g,/\/$r/g;$_=$\x01;$\x01=!y/'/ /
Note that non-ascii characters in the above source code will be escaped (such as \x9f).