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