use warnings;
use strict;
use Regexp::Grammars;
use Data::Dumper;

my $data = join "", <DATA>;
my $matcher = qr{
		<debug: off>
		<nocontext:>
		
		^
		<Module>
		<[Commands]>+		
		<EndModule>
		$

		<token: Module> 
			module \s <Name> \s <BracketedNodes>; \n
		
		<token: EndModule>
			endmodule \n?
			
		<token: Commands> 
			( <Input>|<Output>|<Wire>|<Nand> );\n
			
		<token: Nand>
			nand \s <Name> \s <BracketedNodes>  
		
		<token: Input>
			input \s <Nodes>
		
		<token: Output>
			output \s <Nodes>
		
		<token: Wire>
			wire \s <Nodes>
		
		<token: Name>
			[\p{L}\d_]+
			
		<token: Node>
			N\d+
		
		<token: Nodes>
			<[Node]>+ % ,

		<token: BracketedNodes>
			\(<Nodes>\)
};

if ( $data =~ $matcher )
{
	print Dumper \%/; #/
}
else
{
	print "NO MATCH";
}

			
__DATA__
module circuit_17 (N1,N2,N3,N6,N7,N22,N23);
input N1,N2,N3,N6,N7;
output N22,N23;
wire N10,N11,N16,N19;
nand nand2_1 (N10,N1,N3);
nand nand2_2 (N11,N3,N6);
nand nand2_3 (N16,N11,N2);
nand nand2_4 (N19,N11,N7);
nand nand2_5 (N22,N10,N16);
nand nand2_6 (N23,N16,N19);
endmodule

##</code><code>##

$VAR1 = {
          'Module' => {
                        'BracketedNodes' => {
                                              'Nodes' => {
                                                           'Node' => [
                                                                       'N1',
                                                                       'N2',
                                                                       'N3',
                                                                       'N6',
                                                                       'N7',
                                                                       'N22',
                                                                       'N23'
                                                                     ]
                                                         }
                                            },
                        'Name' => 'circuit_17'
                      },
          'Commands' => [
                          {
                            'Input' => {
                                         'Nodes' => {
                                                      'Node' => [
                                                                  'N1',
                                                                  'N2',
                                                                  'N3',
                                                                  'N6',
                                                                  'N7'
                                                                ]
                                                    }
                                       }
                          },
                          {
                            'Output' => {
                                          'Nodes' => {
                                                       'Node' => [
                                                                   'N22',
                                                                   'N23'
                                                                 ]
                                                     }
                                        }
                          },
                          {
                            'Wire' => {
                                        'Nodes' => {
                                                     'Node' => [
                                                                 'N10',
                                                                 'N11',
                                                                 'N16',
                                                                 'N19'
                                                               ]
                                                   }
                                      }
                          },
                          {
                            'Nand' => {
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N10',
                                                                                       'N1',
                                                                                       'N3'
                                                                                     ]
                                                                         }
                                                            },
                                        'Name' => 'nand2_1'
                                      }
                          },
                          {
                            'Nand' => {
                                        'Name' => 'nand2_2',
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N11',
                                                                                       'N3',
                                                                                       'N6'
                                                                                     ]
                                                                         }
                                                            }
                                      }
                          },
                          {
                            'Nand' => {
                                        'Name' => 'nand2_3',
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N16',
                                                                                       'N11',
                                                                                       'N2'
                                                                                     ]
                                                                         }
                                                            }
                                      }
                          },
                          {
                            'Nand' => {
                                        'Name' => 'nand2_4',
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N19',
                                                                                       'N11',
                                                                                       'N7'
                                                                                     ]
                                                                         }
                                                            }
                                      }
                          },
                          {
                            'Nand' => {
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N22',
                                                                                       'N10',
                                                                                       'N16'
                                                                                     ]
                                                                         }
                                                            },
                                        'Name' => 'nand2_5'
                                      }
                          },
                          {
                            'Nand' => {
                                        'Name' => 'nand2_6',
                                        'BracketedNodes' => {
                                                              'Nodes' => {
                                                                           'Node' => [
                                                                                       'N23',
                                                                                       'N16',
                                                                                       'N19'
                                                                                     ]
                                                                         }
                                                            }
                                      }
                          }
                        ],
          'EndModule' => 'endmodule'
        };