Changed the Lexer to the Perl Lexer