$a='Jp]U#[    S/)T     ^(A]hN[     +;g    or/
O/^T\{H\<E  \iR^0};p   i\Pg\E#s    Rs0    Lsl
H\;;sen#A;  sC#  /K]   >E[   eRs   w#/    nt/
   ';$a    =~s    / |  |\n//g;@b   =split("",
   $a);    $m=ord$b[6  ];foreach   $i(0..$#b)
   {$b[    $c]=$i<63?  '':lc($b    [$c]);$c=(
   $c+=    103)%$m;$_  .=$b[       $c]    ;};
eval$_;    print"\n"x  3;;;;       ;;;    $_=
join(''    ,@b)  ;s /  (an)||     |(p)|  (ha)/
ucfirst    ($+)  /gex  ;print     "J$_"  ;;;;;

##</code><code>##

print "This \n\n\n";

$a='Jp]U#[    S/)T     ^(A]hN[     +;g    or/
O/^T\{H\<E  \iR^0};p   i\Pg\E#s    Rs0    Lsl
H\;;sen#A;  sC#  /K]   >E[   eRs   w#/    nt/
   ';$a    =~s    / |  |\n//g;@b   =split("",
   $a);    $m=ord$b[6  ];foreach   $i(0..$#b)
   {$b[    $c]=$i<63?  '':lc($b    [$c]);$c=(
   $c+=    103)%$m;$_  .=$b[       $c]    ;};
eval$_;    print"\n"x  3;;;;       ;;;    $_=
join(''    ,@b)  ;;;s  /(an)      |(p)|  (ha)/
ucfirst    ($+)  /ge;  print      "has"  ." ";
;;print    "run  \b";  print      "J"..  $_;;;