$libLexer = Parse::YYLex->new(@tokens); #### Parse::YYLex->skip('([\\ \t\r\n]+)|(\/\*.*\*\/)');