#!/bin/perl
# Compte le nombre de mots d'un fichier
$nbmots = 0;
while (<>) {
	@tab_mots = split(/\W+/);
	$nbmots += $#tab_mots + 1;
}
print "Nombre de mots : $nbmots\n";