Récupérer plage de donnée

Bonjour à tous,
Alors un peu dans le meme genre que mon post précédent, que j'ai fini par réussir à améliorer, je me trouve devant un nouveau problème.

Alors ici dans un programme je cherche plusieurs informations.
Ces informations sont contenus dans un fichier assez lourd. Les données utiles se trouvent entre "DONNEES GENERALES" et "COMMENTAIRES LIBRES" (dans ce sens).
Je dois récupérer plusieurs informations.

Données que je recherche (infine partie du programme):

             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
             -------------------

Ce que je cherche c'est les données illustré par A ici.


Et j'ai pensé à faire ça (mais ça marche pas).
J'ai utilisé l'opérateur d'intervalles mais c'est la première fois...

if( -e "$home/etudes/$Site/$Tranche/$nom/occ1/listing"){
  open(TRAITEMENT,"$home/etudes/$Site/$Tranche/$nom/occ1/listing"); ##On ouvre notre fichier
  
  if(/GENERALES/ ... /COMMENTAIRES/)
   {@donne=<TRAITEMENT>;
   }
   else{
   print "Plage de donnee non trouvee pour $nom\n";
   }}
  close(TRAITEMENT);
  
  $n=$#donne;
  for($k=0;$k<$n;$k++){
   if("@donne" =~/RELATIVE/){
    @pivot=grep{$_=~/RELATIVE/} @donne;
    @pivot=split(':',$pivot[0]);
    $relative=$pivot[1];
   }else{
   print "Valeur de la Puissance relative non trouvee pour $nom\n";
   }
    
   if("@donne" =~/BORE/){
    @pivot=grep{$_=~/BORE/} @donne;
    @pivot=split(':',$pivot[0]);
    $bore=$pivot[1];
    }else{
   print "Valeur du Bore soluble non trouvee pour $nom\n";
   }
   
   if("@donne" =~/EPUISSEMENT/){
    @pivot=grep{$_=~/EPUISSEMENT/} @donne;
    @pivot=split(':',$pivot[0]);
    $bu=$pivot[1];
    }else{
   print "Valeur du BU non trouvee pour $nom\n";
   }
   
   if("@donne" =~ /G1/){
    @pivot=grep{$_=~/G1/} @donne;
    @pivot=split('..........',$pivot[0]);
    $G1=$pivot[1];
    }else{
   print "Valeur de G1 non trouvee pour $nom\n";
   }
   
   if("@donne" =~ /G2/){
    @pivot=grep{$_=~/G2/} @donne;
    @pivot=split('..........',$pivot[0]);
    $G2=$pivot[1];
    }else{
   print "Valeur de G2 non trouvee pour $nom\n";
   }
   
   if("@donne" =~ /N1/){
    @pivot=grep{$_=~/N2/} @donne;
    @pivot=split('..........',$pivot[0]);
    $N1=$pivot[1];
    }else{
   print "Valeur de N1 non trouvee pour $nom\n";
   }
   
   if("@donne" =~ /N2/){
    @pivot=grep{$_=~/N2/} @donne;
    @pivot=split('..........',$pivot[0]);
    $N2=$pivot[1];
    }else{
   print "Valeur de N2 non trouvee pour $nom\n";
   }
    
    
   if("@donne" =~ /R/){
    @pivot=grep{$_=~/R/} @donne;
    @pivot=split('..........',$pivot[0]);
    $R=$pivot[1];
    }else{
   print "Valeur de R non trouvee pour $nom\n";
   }
   }
   
 }else{
 print "Le Fichier Listing n'existe pas pour le fichier $nom \n";
 }
 
 
 ### On enlève tous les carractères non désirables
 ($relative=$relative)=~ s/\D*\W*\s*//g;
 ($bore=$bore)=~ s/\D*\W*\s*//g;
 ($bu=$bu)=~ s/\D*\W*\s*//g;
 ($G1=$G1)=~ s/\D*\W*\s*//g;
 ($G2=$G2)=~ s/\D*\W*\s*//g;
 ($N1=$N1)=~ s/\D*\W*\s*//g;
 ($N2=$N2)=~ s/\D*\W*\s*//g;
 ($R=$R)=~ s/\D*\W*\s*//g;
 
 print "Valeur Relative $relative \n";
 print "Valeur bore $bore \n";
 print "Valeur BU: $bu \n";
 print "valeur position grappe: G1 $G1 G2 $G2 N1 $N1 N2 $N2 R $R \n";

}