# Change the universal token prefix pattern
     # (the default is: '\s*'):

            $Parse::RecDescent::skip = '[ \t]+';