#!/usr/bin/perl -w  # always
use strict;         # or die
                                                       $/
                                                       ='
                                                       Ju
                                                       ac
                                                       an
                                         Ju                        st
                                         ck                        er
                                         ha                        ck
her   %p   erl %    hac           ker % Just  %an  ot her    %pe  rl%h
 t%   an   o the   r% pe          r l%h  ac    ke r%Ju st   %a no  th
 ck   er  %    J   u   s         t    %  an    other%p er   l   %  ha
 Ju   st %a    n  ot   he       r%    p  er    l%h  ac ke  r%      Ju
 Ju   st %an      o     t       her      %p    er   l% ha  c       ke
 ck   er %Jus    t%     a       noth     er    %p      er l%       ha
 Ju   st  %anot  he     r        %perl   %h    ac      ke r%       Ju
 ac   ke   r%Jus t%anothe         r%per  l%    ha      ck er       %J
 Ju   st    %anothe                r%per l%    ha      ck er       %J
 th   er      %perl                  %ha ck    er      %J us       t%
 an   ot       he r%                  pe rl    %h      ac  ke      r%
 Ju   st %a    no th    e       r%    pe rl    %h      ac  ke    r %J
  us t%a no    t   h            er    %   pe r l%      ha   c       ke r
  r%Just%another   %perl        %hacker   %Ju st%a    noth  er%pe   rl%
   J  ust%a no       t          he r%      p  erl%    hack    e      r';

                        $,='($\=$/)=~s,.*\n([^\n]+)\n[^\n]+$,$1,gsx;$\=~
           y$ $$d;$\=@@($\,@($\,"J"),@($\,"J",1+@($\,"J"))-@($\,"J"))x3;
      $,=@@@"", @@@@@ { y, ,,d; @@@@(@($\,$_)+@($\,"n")*@($\,"%") 
*@($\,"%"))}@@@@@@ m.\S.,split"\n",$/;$,=~s a`a$_a for 
split"","US.I\'TL!";$,=~s.[A-Z]. $&.g;$\="";
print"","\n";';$.="@"x6; $,=~s,
$.,$.=~s$@$$;$_,egx for 
qw,grep map chr 
join substr
index,;
eval
$,
;