Brother ktross; Greetings in the way of the monks of the kloster. I pondered long on the dwellings of $^ before inspiration visited my humble cell. Good job!

I humbly ask your pardon as I edit, fold, spindle and mutilate your excellent code.

$.=23,$|=1,s,,s//`[*][*]=[=|=]=(=|=|=)<|:|>|<|,,s:s//|/
|\||\[|\]|\(|\)::g;{$:=' 'x$.,$^=' 'x(23-2*$.),$.<9?$~=~
s:\w=\s: =O::($~='O= '),$.=$.?$.-1:23,s:><:>~:?1:s:>~:><:,print"\r",
$^.$_.$:.$~;select$,,$,,$,,2e-1;redo}
[download]

Your humble servant;
starbolin