Higher Order Perl Lexer