Select Code to Download

use Data::Dumper      qw( Dumper );
use Parse::RecDescent ();
...
   my $parser = Grammar->new();
   print(Dumper($parser->parse('a b c')));
}

$VAR1 = [
          'parse',
...
          'b',
          'c'
        ];

$VAR1 = 'c';