s{.}{ord($&)%0x0a}ego for grep $_, @ls;