Parsing a file with newlines

demo.p6

my $str = "
TITLE: My Title

This is an example of some paragraph text.  One of the
key characteristics is that it can span multiple lines.

This is another paragraph.
";


grammar MyGrammar {
  token TOP { ^ <element>+ $ }
  token element { [<title> | <paragraph>] "\n\n" }
  token title { \s* 'TITLE:' \s* \N* }
  token paragraph { \N* }
}

class MyActions {
  method TOP       ($/) {}
  method element   ($/) {}
  method title     ($/) { say "$/" }
  method paragraph ($/) { say "$/" }
}

my $result = MyGrammar.parse: $str;

say $result;