http://qs321.pair.com?node_id=386294


in reply to Re^2: Bad ascii art
in thread Bad ascii art

Well, I hope I'll make it up to you with this adaptation, which I did test on Perl. It's a bit more obscure than what I originally suggested -- yet still same principles.
$=+=49;$;= q; .;; m; | ;?49:s|\+\|-|\$=$&$&|? eval:$;=~s;.$;$=$&$&;for split//,q; / ++++++ ++o-------=++ ++ ++_--------------<+ ++,+++++++++ +/ -------- -- -/;; $_=$;;s;..$;;;print eval;
I left the ascii art to you.