#Dans le corpus des bébés prématurés (p96.bal),
# vous extrairez le champ texte (balise <TXT>) pour toutes les fiches concernant le bébé 2.
#!usr/local/bin/perl
open (IN, "p96.bal");										#ouvre en lecture le fichier amants.txt ( fic d'entrée)
open (OUT, ">TXT.txt");

while ($ligne = <IN>) {
	if ($ligne=~ /<TXT>(.*)<BEBE>2/)						#le (.) est un caractere quelconque sauf fin de ligne.et le* 0 ou plusieur fois
{
	print OUT $1, "\n";
	}
}
print "execution termine!";
close (IN);
close (OUT);