elsif (m/, Homo sapiens/)
		
		{ my ($human) = m/((?:XP_|NP_)[\d. ]+)\s+/; 
		
			$human = $1;
	   
		print OUTFILE $1 . "\t";