#!perl -p
s/./$$_=$&gt${--$_}?$&:$$_/ge