This would remove all dots except the rightmost one:
s/\.(?=.*\.)//g;
A single dot occuring only once in the string will not be removed.