$login =~ s/\.//g;