# This is part of the parser for Pfam domain id and name

print OUT "PFAM\tNAME\tDE\n" ;
while($line=<DATA>){
	chomp($line);
	$line =~s/'//g ;
	@array = split(/\t/,$line);	
	if( $array[1] ne "" ){
		print OUT "$array[1]\t$array[2]\t$array[4]\n"
	}
}
close(DATA);
close(OUT);
