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

##</code><code>##

$string =
  substr($string, index($string, '@QUERY'));