use strict;
use Parse::RecDescent;

my $parser = Parse::RecDescent->new(q(
        start: part(s)

        part : tag      { print ">>> $item[1] <<<\n" }
             | raw

        tag  : stag raw etag { $return = "$item{stag} $item{raw} $item{etag}" }
        raw  : m{([^<]+)}

        stag : m{<open>}
        etag : m{<close>}
));

$parser->start(<DATA>);
__DATA__
<open> Some content <close> <open> some <open> more content <close> <close>