$p=
                           "Z
                          Cc
                           !
                          FTAb!TBBBb!C
                   NIAa!ALMl!GICbncgb!JDzk!BIze
              dgb!Icsdua!Gznl!Ebxengd!DaBlhfzBa!BAb
           CaAcrAfqCd!BafBbAbDdBdBbAiebCi!AheAeiCnAdgf!
         AlBgAeDmBabjd!ibAaAAfAeFiECck!kAbAeAaBaAfBbcdbBd
       n!baiAbBbHcDcgaAcp!AhbBcBaEBfChrd!AcgBcJfDeqdc!AaBgB
     AaLcFrhb!CAgPEDcubb!DgKKBteac!DAfGedHsgb!EgFiGbbvb!EAgEB
    c  cHencdAa!GfAbJGbx!HdCeAGDdoAf!IcDaAaBcdDqBcAa!JcDaMf  E
   aA   c Da!KbNCe!XBABd!";$q=" FKIGHo!GENJimc!UEFteaf!   NGED
  yaj!DAh  MA zo    !Baa  JbIo  ks !AaNaFzv!aACDBcC   aDsgfs!aJ
 dCaBhrnla!aJd Dzkod!aHKAhrij   gc!aCaCaNgodza !AaCcNCnlz!BaBXzp
 g!CbJPCzbigE  c!EbRHB ueuCa    !GcMMAdvpFa!J  bGSuehiCa!FDBbZec
iir!McCViqo !  MdETnl l!NcA      bAOdaCmme        aCa!BMbAAAbaEI
bCbCyFBa!Pa DC ajIaH d  m HBa!CM  aKaPaHDaDdC  aIa!QaJcOaKdIaHa!L
EaCGAaBfGbLa CI  aG        a!K    DCaJaIeCaCH aALbDa!RaBHaLFaJaPc
 !SaIaNCBaI  a!A  S       bDBaAM   EBcDb!UcCbVBcb!Xd!";$r='$b=q="
 =;$c=q{$d=  qq{          \44p=$    b$p$b;\44q=$b$q$b;\44r=\47$r\
 4  7;eval(   \            44r      );};$d=~s/\s//gs;$p=~s/\s//g
    s;$i=0;                         print(map{($l=$_%32)&&$_>92?
    substr(                        $d,($i+=$l)-$l,$l):chr($_>63?
     32:10)       x$l}unpac        k(q{C*},$p));};$c=~s/\s//gs;
     eval$c;      $b=";eval       (%w{d=%{\44p=\42#{$p}\42;\44
      q=\42#{       $q}\42        ;\44r=\47#{$r}\47;eval(\44 r
       );}.gs ub                 (/\s/,%{});i=0;$q.gsub(/\s
        /,%{   }).ea            ch_byte{|b|l=b%32;p rint(b
         >95    ? d  [(i+=l)    -l,l]:(b>63?32:10  ).c h
          r*l    )             }}*%{}     ) ;#"    ;
           ';                 eval(
                             $r);