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