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