#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @gate_data;

while (my $line = <DATA>)
{
    if (my($gate_type,$gate_name,$ouput_gate,$input_A, $input_B)
          = $line =~ /^(\w+)\s+(\w+)\s+\((\w+),(\w+),(\w+)\)/)
    {          
      print "$gate_type, $gate_name,$ ouput_gate, $input_A, $input_B\n";
      push @gate_data,[$gate_type, $gate_name,$ ouput_gate, $input_A, $input_B];
    }
}


print "@$_\n" for @gate_data;

=prints
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
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
=cut

__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