#!/usr/bin/perl 
#ouvrir le fichier p96.bal en lecture
open(FICHIER, "p96.bal");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat resultat1.txt en écriture
open(RESULTAT, ">resultat1.txt");
#tant qu'il y a des lignes dans le fichier p96.bal.txt
while ($ligne = <FICHIER>){
    #pour chaque ligne contenant des balises txt
    if($ligne =~ /<TXT>([^<]+)<BEBE>/){
	#écrire dans le fichier résultat la chaîne de caractères entre les balises
	print RESULTAT $1, "\n";
    }
}
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);