use strict;
use warnings;

my $data;
$data .= $_ =~ /\s0$/ ? 0 : 1 while <DATA>;
my @fail = grep $_, map{ length $_ } split /1+/, $data;

print join( ", ", @fail ) . "\n";
my $sum = 0;
$sum += $_ for @fail;
print "$sum seconds total, " . ( $sum / @fail ) . " seconds average\n";

__DATA__
000.000-001.000 1 74
001.000-002.000 0 0
002.000-003.000 0 0
003.000-004.000 6 1300
004.000-005.000 16 3102
005.000-006.000 61 36106
006.000-007.000 5 3295
007.000-008.000 0 0
008.000-009.000 0 0
009.000-010.000 0 0
010.000-011.000 0 0
011.000-012.000 0 0