#!perl -p
s/. /0+$&.chr 61+($&<=>$')/ge