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