perl -le 'print sort {$a ne $b} split //, "<WORT>"'