Select Code to Download

perl -we 'binmode STDIN, "encoding(utf8)" or die; binmode STDOUT, "enc
+oding(utf8)" or die; while(<>) { while (/(\p{IsAlpha}+)/g) { my $w = 
+$1; my $l = substr $w, -1; $f{$l}++; $r{$l}{$w}++; } }; for my $l (so
+rt { $f{$a} <=> $f{$b} } keys %f) { @m = reverse sort { $r{$l}{$a} <=
+> $r{$l}{$b} } keys %{$r{$l}}; splice @m, 10; printf "%5d %s - %s\n",
+ $f{$l}, $l, join(" ", @m); }' <grantu.txt

    1 ë - aiguë
    1 U - DU
...
   21 S - S LES ENFANTS
   24 X - X XIX XX IX
   25 O - O

   26 û - dû
   28 V - V XV IV XIV XXIV XXXV
...
32008 t - et est était dit répondit avait fut Grant tout Robert
41984 s - les des s pas dans ses plus vous ces nous
50004 e - de le une se que ne ce Le cette je