Untitled

grammar G {
    token TOP { <sentRefEnd> }
    token sentFrag { <char>+ }
    token sentRefEnd { <sentFrag> <endPunc> <ref> }
    # token sentRefEnd { <char>+? <endPunc> <ref> }
    token endPunc { \. }
    token char { \w || \s | \.}
    token ref { \(\d+\) }
}

class GActions {
  method sentRefEnd($/) {
    say $/.Str;
  }
}

my $book = "Hello how are you.(1)";
my $match = G.parse($book, :actions(GActions.new()));
say $match;