As an add on here. maybe

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

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

This way it will also catch https URLs. Though using a module as recommended below is probably the best way.


MMMMM... Chocolaty Perl Goodness.....