my $token_grammar = qr {
        
        <nocontext:>
        <debug: on>
        
        <[unit]>+
        
        <token: unit>                  <word>
        <token: word>             \b \w+ \b  
}