$\=q.,.;
$_=q.print'  ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107.
.
q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];
#{local $\=$/;print;}
$\.=$/;
s,q,32,g;
#{local $\=$/;print;}
s,g,112,g;
#{local $\=$/;print;}
y,' , q,;
#do {local $\=$/;print;} or
eval;
[download]

$\=q.,.,
$\.=$/,
print qq,\112,
#         "J"
,(qw,a c e h,,map{$_-=32if/112/;chr}107..117,32)
# ("a","c","e","h","k","l","m","n","o","P","q","r","s","t","u"," ")
#   0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
[map+hex,split//,join q,2B,,qw$ECDF078D3 F9 5F3014$,$,];
# ECDF078D32BF92B5F30142B
# ust another Perl hacker
[download]