# Compter les mots
# Servez-vous de split pour calculer et afficher le nombre de mots dans votre lettre du programme précédent.

print "Ecrivez votre lettre : \n";
$lettre = <STDIN>; 	# $lettre contient ce que l'utilisateur tape au clavier

@mots = split (/[\W]+/, $lettre); # on transforme la variable $lettre en un tableau de valeurs, en mettant une chaine de caractères par cellule
$nbmots = $#mots+1; # ceci permet de compter la longueur du tableau et donc le nombre de mots dans cette lettre
print "le nombre de mots de votre lettre est : $nbmots \n";