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