Help for this page

Select Code to Download

Select or download this

my $printing = 0;
while (<BLASTFILE>) {
   if (/Query=\s*(.*)/) {
...
   }
   print if $printing;
}