split -l 1000 myfile myfile.
for file in myfile.*
do
perl -i -pe 's/3/2/g' $file
done
cat myfile.* > newfile
rm myfile myfile.*