#!/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 premiermot.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, ">premiermot.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 commence par un mot, on exécute le bloc d'instructions
	if ($ligne=~/^([A-Za-zàâäéèêëîïôöùûüç]+)/){
		#On écrit dans le fichier premiermot.txt le contenu de la variable $1 qui correspond au contenu de la première parenthèse de la ligne ci-dessus
		#On retourne à la ligne
		print FICHIERSORTIE $1, "\n";
		#On incrémente le compteur
		$compteur++;
	}
}
#On ferme le fichier premiermot.txt
close(FICHIERSORTIE);
#On ferme le fichier amants.txt
close(FICHIERENTREE);