perl -wple "%seen=();s/(.)/$seen{$1}++?'':$1/ge"