s!.(\w+)]!(@{[$1=~/./g]})!,y/()| /{},/,s/(B|{[^}]+})\?/{,$1}/g,print<"$_\n">for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page