print'x   t
@ * @
t   x

'=~s/\S/1&ord($&)>>$_/gerfor<>