$_='a02756b636168620c62756072027568647f6e61620473757a6';split//,[q(just another perl hacker)];$}='chr((ord$_)+65)';$.=join'',$_[6],$_[7];@|=map{$..$_}(split,72,65,76,65,72,73,65);shift@|;$t=join'',map{eval'chr hex'}@|;$_=(join'20',(split/02/,eval $t))[0];;$$='print map{eval $}}@]';map{push@]=>chr(eval($..$&)-65)while s/..//}$_;eval$$;print;