#!perl -pl
$r='(?|\(([^)]+).|(\w+))';$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;$_=$
;$
=!y/'/
/