Help for this page
@blastblock = split(/Query=/, $_);
perl -e '$/ = "\nQuery="; while (<>) { print and last if $. == 5472538 +0;}' file.txt