Select Code to Download

#!/usr/bin/perl
use strict;
...
print map {$words{$_}, "\t$_\n"} 
      sort {$words{$b} <=> $words{$a} || $a cmp $b} 
      keys %words;

33093   de
31980   et
...
9844    des
9492    d
[...]

$words{$_}++ foreach
            map { $_= lc; tr/àâéèêëïîôùûç/aaeeeeiiouuc/; $_;}
            grep {length > 2} 
            split /[,.:;"?!'\n ]+/, $texte;

16774   les
10103   qui
...
1517    plus
1513    celui
1474    fait