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