#!/usr/bin/perl/
#########################################
# DESCRIPTION : Prend le premier mot de chaque vers du fichier amants.txt et l'écrit dans un fichier séparé (premiermot.txt)
# [Etape 1, exercice 4-2]
#########################################

open (FILE, "amants.txt") or die "Impossible d'ouvrir amants.txt !";
open (FILEOUT, ">premiermot.txt");
while ($ligne = <FILE>){
	$ligne=~s/la mort des amants//i;	# on enlève le titre du poème (cad on le remplace par rien)
	$ligne=~s/charles baudelaire//i;	# on enlève le nom de l'auteur 
	next if $ligne =~m/^\s*$/;			# on saute les lignes vides
	@mots = split (/ /, $ligne);		# segmentation du texte en mots et assignation des mots au tableau @mots
	$premiermot = shift (@mots);		# assignation du premier élément du tableau à la variable $premiermot
	print FILEOUT "$premiermot\n";
	}
close FILE;
close FILEOUT;