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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

-DATA-
in1_c[0]
in1_c[1]
in1_c[0]
in1_c[1]
a_c
in1_c[0]
b_c
in1_c[1]
in1_c[0]
in1_c[1]