Yea no kidding. ;) I'm working on cleaning it up. Several things became functions as I went and so I build the function in place and havn't done my house cleaning yet ;)
___________
Eric Hodges
$_='y==QAe=e?y==QG@>@?iy==QVq?f?=a@iG?=QQ=Q?9';
s/(.)/ord($1)-50/eigs;tr/6123457/- \/|\\\_\n/;print;