Select Code to Download

network_object: 'network' ':' /(\w+)/ '=' '{' ip_def mask_def host(s) 
+'}'

host        : 'host' ':' /\w+/ '=' '{' ip_or_range '}'

ip_or_range : 'ip' '=' ip ';'
            | 'range' '=' ip '-' ip ';'

my $grammar = <<'GRAMMAR';
parse: network_object(s)
network_object: 'network' ':' /(\w+)/ '=' '{' ip_def mask_def host(s) 
+'}'
...
ip          : /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/
    { $return = $item[1]; }
GRAMMAR

$VAR1 = [
          {
...
            'SUBNET' => '10.1.1.0'
          }
        ];