#!/usr/bin/perl -w
use strict;
my $grenzwert = 35;
my $data;

while (<STDIN>) {
    chomp;
    my $line = $_;
    next unless $line =~ /\d{3,}\.\d{3}-\d{3,}\.\d{3}/;
    my( $bytes ) = $line =~ /\s(\d+)\s*$/;
    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";
open $mittel, '>>', 'mittel.txt' or die $!;