This is my first ever attempt of a JAPH.
Hope you like it!
@kd8_DEFSj_h=(q/0x72/,q^0x65^,q{0x6B},qq[0x63],q(0x61),'0x48',q/0x20/,
q(0x6C),qq/0x72/,'0x65',qq[0x50],q{0x20},
q/0x72/);$aldkjLKFDS_Eflh=\@kd8_DEFSj_h;
push@kd8_DEFSj_h,('0x65',q/0x68/,qq{0x74},q^0x6F^,qq[0x6E],q/0x41/);
$akjlhDFLKJH_adfj=\$aldkjLKFDS_Eflh;
%lkj_lkjlJGSD_jh=map{$_}reverse(@{$$akjlhDFLKJH_adfj});
push @kd8_DEFSj_h,(qq*0x20*,q/0x74/,q^0x73^,'0x75',
q/0x4A/);@t7500O=reverse(@{$$akjlhDFLKJH_adfj});%lkj_lkjlJGSD_jh=
map{$_}reverse(@{$$akjlhDFLKJH_adfj});
foreach (@t7500O) {print chr(hex($_));}