LINE: while (<THATFILE>) {
	next LINE if (!/^\d+: \d{2}:/ );
	foreach $field(split /,/, $line) {
		chomp $field;
		if ($field == '987') {
 		foreach $subtime (split /:/, $field) {