$go=s()@X:0&q'%'#'\$" &!&u&v'\$&(&%'"" ' &%'"&s" &(&!&#&r&%'"@o;($go=$_)=~s(.)$\x10$go;$_^=$go;split;print+pack+shift@_,@_;