}
       elsif($line =~ /interlock/)
       {
            @words = split '[a-zA-Z][a-zA-Z][a-zA-Z]\d\d,\s+\interlock', $line, 2;
	    $line = join '', @words[0],"$date_intlck_rel_res";
            print OUT $line;