$ perl -i.old -pE 's/^G1/G0/ if m/F30000/' ncfile.dat