$line =~ m{^https?://([^/]+)};
$server{$1}++;

for ( keys %server ) {
   print "$_ : $server{$_}\n";
}