use strict; 
use warnings FATAL => 'all'; 
use autodie; 
open(INPUT, '<', 'result_3.csv');

my $nombre=0;
my @fichiers;

while((my $ligne=<INPUT> ))
{   
    next if($ligne=~/^\d+\s+\d{2}:\d{2}:\d{2}\s*$/);
    next if($ligne=~/^\s+$/); 
    next if($ligne=~/^default/); 

    if($ligne=~/,fault,/) 
    {
        $nombre++;
        push @fichiers, (split(/,/, $ligne))[0]; 
    }
}
close(INPUT);
open(OUTPUT, '>', 'resultat.txt');

print OUTPUT join("\n", @fichiers); 
close(OUTPUT);