I know nothing about BLAST files, but it's probably because

is sometimes an empty string. Maybe do something like this:

or this:

my $printing = 0;
while (<BLASTFILE>) {
   if (/Query=\s*(.*)/) {
      $printing = (index($headerline,$1) >= 0);
   }
   print if $printing;
}
[download]