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