perl -pe 's/\.//g END {close STDOUT or die $!}' datei > datei2