for (my $i = 0; $i < 11; ++$i)
   {
       scalar(<>);
   }
   my $total = 0;
   for (<>)
   {
       my @fields = split(/ /);
       for (@fields)
       {
           next unless m/^[0-9]+(:[0-9]+)?\.?$/;
           ++$total;
       }
   }
   print $total, "\n";