gistfile1.txt

grammar OrgMode::Grammar {
  token TOP {
    <node>+
  }

  token node {
    ^^ '*'+ \s+ $<text>=[\N*] \n
  }
}

my $text = q{
* Hello
** Hi world!

* How are you
* Test
* Another test
* Pattern?
* Here?
** Or here
*** Maybe here

* Here

* And

* Here
};

my $match   = OrgMode::Grammar.parse($text);

for $match<node> -> $node {
  say "A node: $node<text>";
}