#==========================================
#   Usage: perl   contenu_Cordial.pl   fichier_xml_des_contenus
#===========================================

#!/usr/bin/perl
use warnings;
use diagnostics;
use strict;

my $ligne;
my $f='';
my $ch;

#======================Lecture du fichier source

open (FPUT,"< ". $ARGV[0]);
while (defined( $ligne=))
{ chomp($ligne);
$f=$f.$ligne;
}
open (FPUT2,"> contnu2.txt");
#======================L'extraction
while ( $f=~s/<CONTENU>([^<]*)<\/CONTENU>/)
{ 
print FPUT2 $1."\n";
 }
close(FPUT);
close(FPUT2);