$line =~ /\b(\d\d:\d\d:\d\d)\b/
    or die "No time in '$line'";
my $time= $1;