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