#!/usr/bin/perl
use strict;
use warnings;
             
#my $filename = "akre66_test2.txt";
#my $FILE;
# 
#open($FILE,$filename) or die("Fichier $filename introuvable");                                                                                                                                                     
#my @contenu = <$FILE>;
#close($FILE);

my @contenu = <DATA>;
 
$_ = join("", @contenu);
if (/.*\s+DONNEES\sGENERALES.*EPUISEMENT\sMOYEN\.+:\s+([^\s]+)
    .*PUISSANCE\sRELATIVE\.+:\s+([^\s]+)
    .*BORE\sSOLUBLE\.+:\s+([^\s]+)
    .*G1\s+\.+\s+([^\s]+)
    .*G2\s+\.+\s+([^\s]+)
    .*N1\s+\.+\s+([^\s]+)
    .*N2\s+\.+\s+([^\s]+)
    .*R\s+\.+\s+([^\s]+)
    .*\s+COMMENTAIRES\sLIBRES/xs) {
    print "$1\n";
    print "$2\n";
    print "$3\n";
    print "$4\n";
    print "$5\n";
    print "$6\n";
    print "$7\n";
    print "$8\n";
} else {
    print "Erreur de format du fichier\n";
}
__END__
                                                     

             DONNEES GENERALES
             -----------------


 CENTRALE....................:  XXX
 TRANCHE.....................:       X         
 CYCLE.......................:      X
 EPUISEMENT MOYEN............:       AAAA Mwj/T
 PUISSANCE NOMINALE..........:    XXX
 PUISSANCE RELATIVE..........:     AAAA
 BORE SOLUBLE................:     AAAA  
 MODE DE PILOTAGE............:  X
 ENFONCEMENT DES GRAPPES (pas extraits)
               G1  ..........     AAA
               G2  ..........     AAAA
               N1  ..........    AAAA
               N2  ..........     AAAA
               R   ..........     AAAA

                 
    
    
             COMMENTAIRES LIBRES
             -------------------
    
Truc, machin, bidule PUISSANCE RELATIVE, N1, R.