Recherche:

Attention car ce n'est clairement pas bon de parcourir 3 fois tout le fichier
je n'avais clairement pas regardé cette partie

#decoupage du fichier
open(FH_IN, 'monfichier.txt');
while...

si tu fais comme ça tu auras une idée du problème:

#decoupage du fichier
while ($ligne = <lire>){
print $ligne;
#recuperation des elements compris entre [{ et @]
if ($ligne =~...

je pense que tu ne dois garder que la dernière occurrence plutôt non?

essaie :


#decoupage du fichier
while ($ligne = <lire>){
#recuperation des elements compris entre [{ et @]
if...