open(FENT, "amants.txt") || die "probleme";
open(FSORT,">der.txt") || die "probleme";


while ($ligne = <FENT>) {
		if ($ligne !=~m/^\s*$/) {
			$ligne =~s/[,.;]//g;
			@mots = split (/ /, $ligne);					$der = pop (@mots); 	
			print FSORT "$der\n";
		};
}
		close(FENT);
close(FSORT);