#!/usr/bin/perl 
#ouvrir le fichier amants.txt en lecture
open(FICHIER, "amants.txt");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat moteneau.txt en écriture
open(RESULTAT, ">resultat3.txt");
#tant qu'il y a des lignes dans le fichier amants.txt
while ($ligne = <FICHIER>){
    #pour chaque ligne commençant par un mot 
    if($ligne =~ /^([A-Za-zàâäéèêëîïôöùûûç]+)/){
	#écrire dans le fichier résultat le premier mot de chaque ligne
	print RESULTAT $1, "\n";
    }
}
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);
