while (<THATFILE>) {
  next unless (/^\d+: \d{2}:/ );
  my @fields = split /,/;
  if ($fields[2] = 987) {
    my ($hour,$min,$sec) = /^\d+: (\d\d):(\d\d):(\d\d)/;
    ...
  }
}