Bonjour

je dois récupérer une chaine de caractéres dans un fichier.

Le problème est que ma variable à rechercher dans le fichier contient des guillemets et je n'arrive pas à l'exploiter.
J'ai essaye de me servir de "quotemeta", mais sans obtenir satisfaction.
Et le perl perd un peu les pédales.

Merci pour votre aide.

my $Entete="<?xml version="1.0" encoding="UTF-8" ?>";

open (FIC_ENTREE, "<$FicEntree") || die "Ouverture impossible du fichier $FicEntree: $!";

while ($Ligne = <FIC_ENTREE> )
{
if ($Ligne =~ m/$Entete/)
{
print "${Ligne}\n";
if ( $FichierOuvert eq "Oui" ) { close (FIC_SORTIE); }

my $toto=$Total_Research_Exclu++;
print "${toto}\n";
$FichierParLot = "$FicSortie/$Prefixe_Fic_${Total_Research_Exclu}";
open (FIC_SORTIE, ">>$FichierParLot") || die "Ouverture impossible du fichier $FicSortie : $!";
$FichierOuvert="Oui";
}
print FIC_SORTIE "$Ligne";

}
close (FIC_ENTREE);