- Prison Code Breaker Diary -

use constant
HACK
#??? 
=> 1
;($p, $h)        
= 
split ( ' ',
chr(112). "E". join('',

('T' . chr(0144) ) ) .chr(0x20) .                
# <<END>>            
join('', ('QmOt' , 'S'.###*&#^$(&
'uoH'  ) )
#(*$)) WHAT THE HELL#$-~#msl39$#                  
                )
;
qw [
    /    7h1s i5 5o 4nN0y1nG /
    { 4 rE4L }

] 
;++$p;#
$h = 
#--fosortc
(reverse $h
);chop($h); xJAPHx:
++$h
;    print lc 
join        ( ' '
, (${\${\${\$p}}}
, ${\$h}     )
)
;