Select Code to Download

my @nets = "in1_[0], in1_[1]";

my @nets = "a_c, b_c, N_05";

while (<DATA>){
print "substitution is done" if (s/$nets[0]/$nets[1]/);
}

-DATA-
in1_c[0]
...
in1_c[1]
in1_c[0]
in1_c[1]