$Parse::RecDescent::skip

Parse::RecDescent everyday parser 
#!/usr/bin/env perl

use strict;
use Parse::RecDescent;
use Data::Dumper;

$Parse::RecDescent::skip = '';

my $grammar =
q{
    inputs : /[a-z ]/ { print Data::Dumper::Dumper($item[1]); }
};

my $parse = new Parse::RecDescent ($grammar);

while (<>)
{
    defined $parse->inputs($_) or print "Bad text!\n";
}

で、

a
$VAR1 = 'a';
 
$VAR1 = ' ';

Parse::RecDescent::skip ではないらしい