while (<THATFILE>) {
  if (/\d+ (\d+):(\d+):(\d+)((,\d+)+)/) {
    my ($hour, $min, $sec, $line) = ($1, $2, $3, $4);
    if ($line =~ /,987/) {
      do-something-with-time-values;
    }
  }
}