$login =~ s/[\.\-]//g;