#!/usr/bin/perl -w

$input_blast = $ARGV[0];

$/ = "\nQuery=\s+";

open (IN, "$input_blast"); 
while (<IN>) {
   
    chomp;
    @blastblock = split(/Query=/, $_);

}

 
$total_number = 0;
foreach $blastresult (@blastblock) {
    
  next if ($blastresult =~ /^BLASTN/);
  $total_number++;
  print "$total_number ----------------------$blastresult\n";
  
}