#!/usr/bin/perl 

use strict;

open(FH, "gene_family_tab_091806.txt");
my $count = 0;
while(<FH>){
	$count++;
	
	my ($super_gene_family, $gene_family, $gene_name, $gene_alias, $bac_locus, $locus, $gbi, $gb_locus, $tigr_annotation, $expert_annotation,
			$criteria, $people_id, $org_id, $pmid, $url, $url_name) =
			/([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+([^\t]+)\t+[^\t]+\t+(\w+)"?([^\t]+)"?\t+"?([^\t]+)"?/i;
	if(!defined $url_name){	
		print "\nLine: $count";
		print "Problem with this record";
		print "\nHit any key to go to next record";
		my $dummy = <STDIN>;
	}
}