@blastblock = split(/Query=/, $_);

##</code><code>##

perl -e '$/ = "\nQuery="; while (<>) { print and last if $. == 54725380;}' file.txt