antlr-3.4/runtime/Perl5/examples/id/IDLexer.g

lexer grammar IDLexer;
options { language = Perl5; }

ID  :   ('a'..'z'|'A'..'Z')+ ;
INT :   '0'..'9'+ ;
NEWLINE:'\r'? '\n' { $self->skip(); } ;
WS  :   (' '|'\t')+ { $channel = HIDDEN; } ;