$Parser = Parse::RecDescent->new(
   q(
      TAG       : <skip:''> /\\<.*?\\>/
      LITERAL   : <skip:''> /[^<]*/
      TOKEN     : TAG | LITERAL

      startrule:
         TOKEN(s) {
            @main::PARSED = @{$item[1]};
         }
   )
);