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;
[download]

I left the ascii art to you.