$/="> ";
while(<>)
{
	$seq='';
	$top='';

	if($_=~/^gi\|(.*?) \.*?|.*/m)
	{
		$id=$1;
		#print $id."\n";
	}

	if($_!~/^gi/mg )
	{
		print $_;
		$seq.=$_;
	}

	print $seq."\n";
}
$/="\n";