##############################
$_="72656B636148206C7265502".#
"0726568746F6E41207473754A" ;#
my @just;while($_){push(@just#
,substr($_,0,2)); s/..//;} my#
@another;while (@just){ push(#
@another,pop(@just))}my @perl#
=map{chr(hex())} @another; my#
$hacker=join('',@perl); print#
$hacker, '', '', '', '',"\n";#