#!perl -p
s/./$$_=$&if$&gt$$_/ge