#!/usr/bin/perl -w
#On ouvre en lecture le fichier amants.txt et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, "<amants.txt");
#On ouvre en écriture le fichier derniermot.txt et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, son contenu est écrasé
open(FICHIERSORTIE, ">derniermot.txt");
#On crée un compteur $compteur et on l'initialise à 1
my $compteur=1;
#Tant qu'on peut associer une ligne du fichier amants.txt à la variable $ligne, on exécute le bloc d'instructions
while (my $ligne=<FICHIERENTREE>) {
	#Si le contenu de la variable $ligne finit par un mot, suivi ou non (?) d'un signe de ponctuation, et suivi ou non (?) d'un retour à la ligne (\r), on exécute le bloc d'instructions
	if ($ligne=~/\b([A-Za-zàâäéèêëîïôöùûüç]+)\b[.,;!? ]?[\r]?$/){
		#On écrit dans le fichier derniermot.txt le contenu de la variable $1 qui correspond au contenu de la parenthèse ci-dessus
		#On retourne à la ligne
		print FICHIERSORTIE $1, "\n";
		#On incrémente le compteur
		$compteur++;
	}
}
#On ferme le fichier derniermot.txt
close(FICHIERSORTIE);
#On ferme le fichier amants.txt
close(FICHIERENTREE);