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

open (FILE, "amants.txt") or die "Impossible d'ouvrir amants.txt !";
open (FILEOUT, ">derniermot.txt");
while ($ligne = <FILE>){
	$ligne=~s/la mort des amants//i;
	$ligne=~s/charles baudelaire//i;
	$ligne=~s/[,.;]//g;					# on élimine les ponctuations de fin de vers
	next if $ligne =~m/^\s*$/;	
	@mots = split (/ /, $ligne);
	$derniermot = pop (@mots);			# on sort le dernier élément du tableau @mots, qu'on assigne à la var $derniermot
	print FILEOUT "$derniermot";		# pas retour chariot à imprimer en plus (il y en a déjà un dans le fichier d'origine) 
	}
close FILE;
close FILEOUT;