use locale;

#!/usr/bin/perl -w
#Ouverture en lecture de p96.bal
open(FILEIN, "<p96.bal");

#Ouverture en écriture du fichier results.txt référencé FILEOUT
open(FILEOUT, ">results.txt");



#Tant qu'on peut associer une ligne du fichier p96.bal à la variable $line, on exécute le bloc d'instructions
while (my $line=<FILEIN>) {
	
	#Si la ligne contient l'expression régulière définie...
	if ($line=~/<TXT>(.*)<BEBE>2[^0-9]/) {
		
		#On écrit le contenu des parenthèses dans le fichier results.txt + retour à la ligne
		print FILEOUT $1, "\n";
		
		
	}
}
#On ferme le fichier resultat.txt
close(FILEOUT);

#On ferme le fichier p96.bal
close(FILEIN);