#!/usr/bin/perl -w
#On ouvre en lecture le fichier p96.bal et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, "<p96.bal");
#On ouvre en écriture le fichier resultat.txt et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, son contenu est écrasé
open(FICHIERSORTIE, ">resultat.txt");
#On crée un compteur $compteur et on l'initialise à 1
my $compteur=1;
#Tant qu'on peut associer une ligne du fichier p96.bal à la variable $ligne, on exécute le bloc d'instructions
while (my $ligne=<FICHIERENTREE>) {
	#Si le contenu de la variable $ligne contient la séquence de caractères "<TXT> ", suivie de n'importe quel caractère (.) répété zéro, une ou plusieurs fois (*), suivi de "<BEBE>2" sans autre chiffre derrière ([^0-9]), on exécute le bloc d'instructions
	if ($ligne=~/<TXT>(.*)<BEBE>2[^0-9]/) {
		#On écrit dans le fichier resultat.txt le contenu de la variable $1 qui correspond au contenu de la première parenthèse de la ligne ci-dessus
		#On retourne à la ligne
		print FICHIERSORTIE $1, "\n";
		#On incrémente le compteur
		$compteur++;
	}
}
#On ferme le fichier resultat.txt
close(FICHIERSORTIE);
#On ferme le fichier p96.bal
close(FICHIERENTREE);