Select Code to Download

use strict; 
use warnings; 
...
$VAR1 = {
          'dirs' => 1
        };

dir : 'hello'
     | 'world'

-->hello world<-- 
$VAR1 = {
          'dirs' => 2
        };

          print "-->@{$item{'dir(s)'}}<-- \n";
$main::HASH{dirs} = @{$item{'dir(s)'}};

use strict; 
use warnings; 
...
                    ]
        };

my $grammar = <<'END_OF_GRAMMAR';
    
...

--output:--
(blank)

my $grammar = <<'END_OF_GRAMMAR';
    
...
    }

...

  my $grammar = <<'END_OF_GRAMMAR';
    
...
--output:--
Unknown starting rule (Parse::RecDescent::namespace000001::startrule) 
+called
 at 3.pl line 76.

my $grammar = <<'END_OF_GRAMMAR';
    
...
--output:--
-->./hello<--
-->hello/world<--

use strict; 
use warnings; 
...
                           ]
        };