$occurences{(split)[2]}++ while (<>);
foreach $url (keys %occurences) {
print "$occurences{$url}\t$url\n";
}