$A=" \\";$:="\\";map{$;=(/fl/?"-":/nv/?V:/tr/?"^":/c/?O:/wa/?"~":/ny/?".":/os.*w/?"!":/w/?"|":/a/?"*":x);if(/ey/){$l=$;if/ft/;$r=$;if/h/;$l=$r=$;if!/[fh]t/}$n=$;if/os/;$m=(/f/?"---":/d/?" V ":/g/?" ^ ":/c/?" O ":/w/?"\\/\\":/y/?" . ":/s/?" * ":/x/?" X ":$m)if/mo/;$A=(/no/?($N=""):/ht/?" |":/i/?" \\":/v/?" (":$A),$:=(/no/?$":/ht/?"|":/i/?"\\":/v/?")":$:)if/em/;$H=(/lo/?$A:/sh/?"":$H?$A:$H);if(/!/){print"$N$H
__$:__
/ $l $r \\
| $n |
\\ $m /
","-"x7;$N=$/}}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).