Select Code to Download

 sub lexer { 
    my($parser)=shift;
...
    return ('ID',  $1) if $$s =~ m/\G([A-Z]\w*)/gc;
    ...  # and it goes on for many tentative matches
 }

  *_ = $parser->YYData->{INPUT}; # reference to the string to lex