$_=pack"H14","7065726c202d76";$s=(`$_`)[3]
;@c=split//,$s;$l=chr(77);@o=join'',$l,@c[
22..26],@c[7,22],chr(100),@c[9,22,9,29,5,8
,8,29],substr($_,1,1),@c[9,29,22],lc$l,lc(
chr((ord$c[0])-1));if($s){print"@o\n"}