#!/usr/bin/perl -w													#on affiche les lignes qui contiennent le motif  rechercher	
open (IN, "amants.txt");				#on ouvre le fichier en entrée
open (OUT, ">premier-mot.txt");		#on créer et on ouvre le fichier en sortie
while ($a=<IN>) {						#parcours les lignes du fighier "amants.txt"
	
@lignes= split (/\s+/, $a);				#met moi dans la liste @lignes le resultat de découpage du fichier par espaces
$premiermot=shift(@lignes);				#enlève le premier mot de chaque ligne et met le dans "premiermot"
$i++;
print OUT"$i: $premiermot \n";		#stock le résultat dans le fichier OUTPUT+>"OUT"
}
close(IN);							#fermeture du fichier en entrée
close(OUT);							#fermeture du fichier en sortie