perl -ple "s/ \d{4,}/ 0/g" infile >outfile