#!perl -p
s/(.)\K /chr 61+($1<=>$')/ge