perl -ple 's/\d+\./xxx./g' filename