#!/usr/bin/perl -w
open(FILE,"$ARGV[0]");
open(FILEOUT,">cherche-motsV2.txt");
%dico=();
while ($l = <FILE>) {
my @motsparligne=split(/[\W]/,$l);
    foreach my $mot (@motsparligne) {
	    $dico{$mot}++;
	}
}
while ( ($mots, $nombre) = each (%dico)){
       print FILEOUT $mots, ":", $nombre, "\n";
}
close(FILE); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie	