$_=japh;$a=chr(ord(chop)- y;pj;vd;-1);split? *?;push(@_,$a);map{s:(\144):\u\1:;print} reverse join(q~~,@_);