gistfile1.txt

> cat foo
grammar WHOLEFILE {
    regex TOP { <marker> <inside> <marker> };
    regex marker { '{' | '}' };
    regex inside { <things>+ };
    regex things { \S+ | \s+ };
};
 
my $r = WHOLEFILE.parse( '{' ~ "\nsasdf daqwd\ndwesdd\ndadsd\ndssadw dwesad\n" ~ '}' );
 
say $r;
> perl6 foo
｢{
sasdf daqwd
dwesdd
dadsd
dssadw dwesad
}｣
 marker => ｢{｣
 inside => ｢
sasdf daqwd
dwesdd
dadsd
dssadw dwesad
｣
  things => ｢
｣
  things => ｢sasdf｣
  things => ｢ ｣
  things => ｢daqwd｣
  things => ｢
｣
  things => ｢dwesdd｣
  things => ｢
｣
  things => ｢dadsd｣
  things => ｢
｣
  things => ｢dssadw｣
  things => ｢ ｣
  things => ｢dwesad｣
  things => ｢
｣
 marker => ｢}｣