use strict;
#use warnings;

##</code><code>##

use strict;
use warnings;

##</code><code>##

while (<COMPFILE>) {
	$comptn = substr $_, 0,10;
	search_tn($comptn);
}


sub search_tn {

##</code><code>##

while (<COMPFILE>) {
	search_tn( substr $_, 0, 10 );
}


sub search_tn {
	my $comptn = shift;

##</code><code>##

		next until $. > 1;

##</code><code>##

		next if $. == 1;

##</code><code>##

		if ($record[0] eq "TLR") {
		} else {

##</code><code>##

		next if $record[0] eq "TLR";


##</code><code>##

				if ($error == "") {

##</code><code>##

				if ($error eq "") {