in reply to strip out lines until match

$string =~ s/\A\s+@QUERY/@QUERY/

[download]
or 
$string =
  substr($string, index($string, '@QUERY'));

[download]

In Section Seekers of Perl Wisdom