#===============================================================
#   Usage: perl   contenu_Cordial.pl   fichier_xml_des_contenus
#===============================================================



#!/usr/bin/perl
use warnings;
use diagnostics;
use strict;

my $ligne;
my $f='';
my $ch;
                   open (FPUT,"< ". $ARGV[0]);
                     while (defined( $ligne=<FPUT>))
                      {
                       chomp($ligne);
                       $f=$f.$ligne;

                       }
                  open (FPUT1,"> contnu1.txt");
                    open (FPUT2,"> contnu2.txt");
                     while ( $f=~/<CONTENU>([^<]*)<\/CONTENU>/) 
                      {      
                           
                            
                            print  FPUT2  "$1\n";
                     }
close(FPUT);
close(FPUT1);
close(FPUT2);