Essaie #!/chemin/vers/ton/perl

use strict;use warnings;

open F_LIRE,'D:\Shared\Perl\F0006741.dc'
or die "E/S : $!\n";

open F_ECRIRE,'>> D:\Shared\Perl\resultat.txt'
or die "E/S : $!\n";

while(<F_LIRE>){
print F_ECRIRE if /^filename=/.../^\s*$/;
}

close F_LIRE;
close F_ECRIRE;
__END__
lami20j