Could you please post a complete script that exhibits your error?

Update: I think you also need a /x modifier like my $token_grammar = qr {...}x;.