$string =~ tr/.//d;
# or
$string =~ s/\.//g;