perl -wlpe 'if(!/^2/){substr($_,99,1,"9");substr($_,148,1,"Z");}' <in.dat >out.dat