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