Higher Order Perl Lexer
