Thanks for the heads up...this version fixes it. Also fixed the main version. 

        $t='|.|/';
     %t=("\|l"=>"z,", 
  'l',8888888888888,$t,
 '._sV888P^','~^9888ka-',
'.-\Q889'   ,    '888/z-',
"-_J88f           188KJ-",
"-:388l    o o    t888[=."
,".>88l           j88E:._"
 ,"Z3886._ ,J.__.488R=;."
  ,"/288888888888888S^.",
   "j^7Z988888885R^L-",
    ,'./jQV9TYVR\[\~',
       "|~|! |~|~. "
       ,' l  | ',
     ,'_ _ " ,  "._,',
    ".)_)._) (_.__,.");
@Y=keys(%t);@Z=values(%t);sub sah{$x=shift;$x=~s/\s+//g;
$x=~y/\!-\~/A-Fa-f/s;return hex($x)}foreach(@Y){$_=sah($_)}
foreach(@Z){$_=sah($_)}$w=!$|;$dp.=chr(($Z[3]/62418209+$w)).
chr($Y[6]/34-!$|).chr('1'.$Z[0]).chr(4*(($Z[7]+$Z[1])^3)).
chr(!$|+!$|+2*$Y[0]).chr(substr($Y[6],0,2)*2).
chr(substr(($Z[3]/$Y[3]),1,2).$Y[5]/2).chr((!hex($t).!$|.$w)+1).
chr((!hex($t).!$|.$w)+1).
chr(oct(4*($Y[0]*3^2*$Y[0]))-(substr($Z[3]/$Y[3],1,2))).
chr(!$|+!$|+2*$Y[0]).chr('1'.$Z[0]-!$|).chr($Y[6]/34-!$|).
chr(((abs($#t).abs($#t).hex($t))-(!$|+!$|))).
chr(($Z[0]*8)-$#Y+4-$Z[1]+!$|).chr(($Z[0]*8)-$#Y+4*!hex($t)).'!';
print "$dp\n";

[download]

In reply to Re: Re: Whew! by Kickstart
in thread Whew! by Kickstart

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.