Select Code to Download

use Data::Dumper qw( Dumper );
use Parse::RecDescent ();
...
__END_OF_GRAMMAR__

print(Dumper($p->parse('aaaaa')));

$VAR1 = undef;