$TemplateParser = Parse::RecDescent->new(<<'__GRAMMAR__');

   template:  identifier 'TEMPLATE' '{' statement(s) '}'

   statement: expression
            | conditional
            | loopcontrol
            | { $QueryParser->query(\$text) }

__GRAMMAR__