perl.exe -ple "s/ \d{4,}( |$)/ 0$1/g" filename