#!perl -pa s/./$&x${\(@F=sort@F)}=~s;;;/ge