#!/usr/bin/perl
open(FILEINPUT,"fitrage.xml");
open(SORTIE, ">sortie_treetagger.txt");
while ($ligne = <FILEINPUT>){
        if ($ligne=~/<CONTENU>(.+)<\/CONTENU>/){;
    print SORTIE "$1\n";
        }
}
close(FILEINPUT);