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

##</code><code>##

    perl -i.bak -pe 'tr/0-9.//cd' file