#!/usr/bin/perl
#Ce programme prend en entrée un fichier contenant différentes balises dont "description" et retourne en sortie le contenu de la balise "description"
open(FILEINPUT,"$ARGV[0]");
while ($ligne = <FILEINPUT>){
	if ($ligne=~/<description>([^<]+)<\/description>/) {
           $ligne=~s/<description>([^<]+)<\/description>/$1/g;


             print $ligne;
     }
}
close(FILEINPUT);