$arr[$i]=~ s/$Name_pre/$Name/g;