#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire
open(FILEOUT, ">Resultat2-2.txt");
# on ouvre le fichier sur lequel on va écrire
while ($ligne = <FILEIN>){ 
#tant qu'il y a quelque chose à lire
	if ($ligne=~/<BEBE>2/) {
		if ($ligne=~/<TXT>([^<]+)</) { 
		# si on trouve ce motif, on entre dans la boucle
				my $texte=$1;
				print FILEOUT "$texte\n";
		}
	}
}
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie