#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); 
open(FILEOUT, ">resultatsMODIF.txt"); 
$i=1; 
while ($ligne = <FILEIN>){ 
	if ($ligne=~/<description>([^<]+)<\/description>/){ 
			print FILEOUT "contenu de la ligne n°$i : $1\n"; 
			 $i++; 
} # fin de if
} # fin de while
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie
