If all your records have the same format, split is probably the way to go:

while (<DATA>) {
  (undef, $time, $date, undef, undef, undef, $num) = split;
}
[download]