[
   '<this>',
   'this is tagged',
   '</this>',
   ' ',
   '<bye>',
   'bye!',
   '</bye>'
]

##</code><code>##

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

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