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