$\=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