read*DATA,$_,13**+3;y #{}
                 {}{};s>[\s*]+>>g;$i=length;s/
              (.{$i})(.)/$2$1/gx while$i--;eval;;
           ;for(q\just \.q)another),q)perl hacker)){
         for(split$!){$_=$$h{$_}?do{$_=$$h{$_};;;;;;;y
       <A-Za-z0-9+/>/ -_/&&unpack'u',chr(length()*.75+32
      ).$_}:$"x$];$w=(sort{$b<=>$a}map+length,split$\=$/)
     [$]-$]];s/^(.*?)\s*$/sprintf'%-*s',$w,$1/egm;push@f,[
    [split$\],$w]}for$x($?..-//+$]){push@{$x[$x]},@{$f[$_][
   $?]}?pop@{$f[$_][$?]}:$"x$f[$_][//]for$?..$#f}$s.="@{+pop
  @x}$/"while@x;$k=$g=chr(ord$^);for(split$\,$s){$s=$g;$$s=$_
  ;++$g}$==135;print$w="\e[H","\e[J";{print$w;print$"x$=,$$_?
 chop$$_:''for$k..$g;select$,,$,,$,,.01;--$=&&redo}}__END__!!!
 C**wX*yX****o*f*****ig*pv*AoB**LhCffX*g*I**I*lyI****8*g*FC8L8
 8**v*I*LC*g9*8I*o81ga***ICXp*I*Ig8***CIv*wF*B*8*I*8*wX**gCvIA
 g*LA,L>8*Cg*CCyy*w**cIi**F>*L=8**L*X**='CgCLfg*vC8wXgX*Kef*9*
B8C**I*g*gvIALKX*L**C*vy*>I*gX***I*Xg8**w1*}CA*=y8*y******lAyw*
=8C*gy*f****f**y*8**loK****K88A**8f=,*II****'g*f*F*F*wf*v**gvCA
C8*y*y*LIgK******Xf''***'*I***A*X=yiov***g>C*,*8*g****IAgvA*I*X
Fj**gCy*8Xv**89v'*XI*ILy**=A**C1A*8y*v*o**v9KvXyw**f**f**X8**C*
*Fy******C*C9**L*vf**C*vF*8gg$*y**v*8v**AL**II*ILKsK*Xyv**gCI**
8**y        fI**K*F*8**L*,*I9*C**8*BiFw*fg,A8h8*gF'        B***
vg*L           *8*C*8*F*fX*CC8*g*B***,Iv88A*****           gC8X
*1*C              C***IF*u******CX8**L>Xi=***              *C**
C*v8*               **ICI8I*>*KC***8IF*B*8*               *oIF*
**K**                Av*ALvg**C*I*g**'*wBA                **FLg
*'1''*                 f=*yLLI*****'ff'*                 *fo*9g
 *IA>y                  F***v*8FIoy'*C*                  *Lf**
 I*8f8v                  *k'y8F*=vw*>g                  **Kf**
  vy8*X>                  *K*L*XgKw*'                  o*g'vF
   *1By'                   gBv*LI***                   XX8**
   KB***'                  Xv**A'**8                  v***of
    ilgCgC*                 **'***f                 y*BA*8i
     **LI*y*                *8IoIv*                *oC,y*g
      ,**gI**=               *yC8i               'I8g*L>8
       '9{8gB*>A             F*18I             **8A=*v**
        *yA'*1pf**           *wv**           ****,I8l*v
         *IAB*AC*f**f       I**yA**       yF*C1*Avp***
          **gCv'*****KIyK******8C'g9I**yFK*IL8*A=vo*y
           C*ABX*F*fv8***AC,*9***wy***IKI****,Kn=i**
            **Xf8w*L1*w*9***8*,ygf*X**88oKCIC***I**
             I*8*'*F8IL***CL**y*>*>I*****fCC*8LC*y
               **XC***A*I*g*C*FA*w****Bv**CfyA*I
                g*I*y*****A*BI9'g**gy*Iw*L8*lgX
                 *IXXX*A**X**8g*I88*I***B*i***
                   *y**X*FXAyg****Avgo*F*F*F
                     *XAg*gC*i****,*LI**>*
                       IK*I*Xg****tv****
                         XCA**8pr*CIg*
                           A*K=***y*

[download]

In reply to Alien JAPH :) by trizen

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.