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