#!perl -p
s# # ${\chr 61+($_<=>$')} #