my $grenzwert = 0;
my @alle_zeilen=qx'C:\Programme\Wireshark\Tshark -r C:\Test2.pcap -z io,stat,1 ftp';
my $data;
for my $line (@alle_zeilen) {
    next unless $line =~ /\d{4,}\.\d{3}-\d{4,}\.\d{3}/;
    my( $bytes ) = $line =~ /\s(\d+)$/;
    if ( $bytes > $grenzwert ) { $data .= '1' }
    else                       { $data .= '0' }
}

my @fail;
for my $ausfall ( $data =~ /(0+)/g ) {
    push @fail, length $ausfall;
}

my $summe = 0;
$summe += $_ for @fail;

my $mittel = $summe / @fail;

print "Ausfaelle: " . join( ", ", @fail ) . "\n";
print "$summe Sekunden insg. und ";
print "$mittel Sekunden im Mittel pro Ausfall\n";