$ perl -nle 's/\d+\./xxx./g; print' filename