s/\s/substr$',16/eg,print//^index($',$`)%8," $` "while$_=<>.<>