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