1lexer grammar IDLexer; 2options { language = Perl5; } 3 4ID : ('a'..'z'|'A'..'Z')+ ; 5INT : '0'..'9'+ ; 6NEWLINE:'\r'? '\n' { $self->skip(); } ; 7WS : (' '|'\t')+ { $channel = HIDDEN; } ; 8