Perl para o resgate!
perl -lne '$h{ join "", sort split // }++ }{ print "$h{$_} $_" for keys %h' < input_file
-
-nlê a linha de entrada por linha -
-lremove novas linhas da entrada, adiciona novas linhas à saída -
split //divide a string em caracteres -
sortclassifica-os (portanto, exclusividade) -
join ""cria de volta uma única string da lista de caracteres -
%hé uma tabela de hash, chaves são as strings de caracteres ordenados, valores são números de ocorrências: aumentada (++) em cada encontro -
}{"Cumprimento de esquimó" - separa o código para ser executado após o esgotamento da entrada