#!usr/bin/perl -w
open(IN,"/home/adithie/datasets/maize/sequence-ID.txt");
open(OUT,">lncRNA3.txt");
open(OUT1,">blastresults2.txt");
while($id=<IN>)

{
	
	$id=~s/\n|\r//g;
	open(BLAST,"output/$id");
	for($i=0;$i<16;$i++){<BLAST>;}
	$raw=<BLAST>;
	if ($raw=~ m/No hits found/)
	{
		print OUT "$id\n";
	}
	else
	{
		<BLAST>;
		<BLAST>;
		<BLAST>;
		<BLAST>;
		$raw=<BLAST>;
		print OUT1 "$id\n";
		
		$count=0;	
		while(length($raw)>10 && $count<=10)
		{
		$count++;
		print OUT1 "$raw";
		$raw=<BLAST>;
		}	
		
	}
	close(BLAST);
}
close(IN);
close(OUT);
close(OUT1);