perl -i.bak -pe 's/[^\d.]//g' file