Stuff

@c=(65,99,101,104 ,   74,107,108,110,111    ,80,114,115,116,117    ,   
32                ,   97               ,    72                     )
;                 @   p                =    (                      4
,                13   ,               11    ,                      12
,14,0,7,8,12,3,2,10   ,14,9,2,10,6,14,16    ,                      15
,                     1                     ,                      5
,                     2                     ,                      10
)                     ;                     for                    (
$                     x                     =                      0
;                     $                     x                      <
@                     p                     ;                      $
x                     ++){print chr(@c[@    p                      [$x]])}print"\n"