#!/usr/bin/perl
use strict;
use warnings;

my %words;
my $text;
{
	local $/ = undef; 
	$text = <>; 
}
$words{$_}++ foreach 
            map {$_= lc; tr/авйиклофщыз/aaeeeeiouuc/; $_;} 
            split /[,.:;"?!'\n ]+/, $text;
print map {$words{$_}, "\t$_\n"} 
      sort {$words{$b} <=> $words{$a} || $a cmp $b} 
      keys %words;

##</code><code>##

33093   de
31980   et
19813   la
18170   a
18132   l
17535   le
16774   les
12391   il
10103   qui
9844    des
9492    d
[...]

##</code><code>##

$words{$_}++ foreach
            map { $_= lc; tr/авйиклпофщыз/aaeeeeiiouuc/; $_;}
            grep {length > 2} 
            split /[,.:;"?!'\n ]+/, $texte;

##</code><code>##

16774   les
10103   qui
9844    des
9112    que
7350    est
6966    eternel
6826    dans
6336    vous
6284    pour
5931    ils
4546    pas
4272    sur
4176    dieu
4161    fils
4041    lui
3864    dit
3808    une
3510    son
3349    avec
3184    nous
3091    car
2993    par
2958    ses
2924    comme
2793    leur
2602    israel
2590    mais
2563    roi
2548    tous
2418    mon
2293    point
2255    ton
2120    tout
2069    sont
2046    elle
1949    maison
1910    leurs
1856    avait
1846    toi
1800    homme
1799    pays
1784    peuple
1773    etait
1736    moi
1668    ceux
1642    aux
1591    tes
1580    devant
1517    plus
1513    celui
1474    fait