pcregrep -o2 '(?<=http://)(www\.)?([^/]+)'

/http:\/\/(.+?)\//

#!/usr/bin/perl
use strict;

$_ = '
http://www.everychina.com/f-z52dbdde/products.html
http://www.phrack.org/issues.html?issue=4&id=8#article
http://gramrc.org/threads/%D0%9D%D0%9E%D0%92%D0%9E%D0%9A%D0%A3%D0%97%D0%9D%D0%95%D0%A6%D0%9A-%D0%A0%D0%90%D0%97%D0%94%D0%90%D0%A7%D0%90-7-%D0%9C%D0%98-%D0%9F%D0%A0%D0%9E%D0%91-%D0%97%D0%90%D0%9F%D0%98%D0%A1%D0%AB%D0%92%D0%90%D0%95%D0%9C%D0%A1%D0%AF.1963/
http://www.autosativa.com/index.php?main_page=product_info&cPath=68_85&products_id=643
http://durmagen.com/kuritelnye-smesi-v-moskve-–-vozmozhno-li-takoe
http://nnm-club.me/forum/viewtopic.php?t=660892 , http://nnm-club.me/forum/viewtopic.php?t=660433 , http://nnm-club.me/forum/viewtopic.php?t=644959 , http://nnm-club.me/forum/viewtopic.php?t=660503 , http://nnm-club.me/forum/viewtopic.php?t=660974 , http://nnm-club.me/forum/viewtopic.php?t=660724 , http://nnm-club.me/forum/viewtopic.php?t=644916 , http://nnm-club.me/forum/viewtopic.php?t=645819 , http://nnm-club.me/forum/viewtopic.php?t=477771, http://nnm-club.me/forum/viewtopiс.php?t=660616 , http://nnm-club.me/forum/viewtopic.php?t=54542 , http://nnm-club.me/forum/viewtopic.php?t=3651081, http://nnm-club.me/forum/viewtopic.php?t=52573 , http://nnm-club.me/forum/viewtopic.php?t=684557 , http://nnm-club.me/forum/viewtopic.php?t=647987 , http://nnm-club.me/forum/viewtopic.php?t=660646 , http://nnm-club.me/forum/viewtopic.php?t=572242 , http://nnm-club.me/forum/viewtopic.php?p=5557839 , http://nnm-club.me/forum/viewtopic.php?t=659121 , http://nnm-club.me/forum/viewtopic.php?t=646478 , http://nnm-club.me/forum/viewtopic.php?t=660381 , http://nnm-club.me/forum/viewtopic.php?t=653681 , http://nnm-club.me/forum/viewtopic.php?t=660537 , http://nnm-club.me/forum/viewtopic.php?t=660380, http://nnm-club.me/forum/viewtopic.php?t=653667 , http://nnm-club.me/forum/viewtopic.php?t=52358 , http://nnm-club.me/forum/viewtopic.php?t=52166 , http://nnm-club.me/forum/viewtopic.php?t=47027 , http://nnm-club.me/forum/viewtopic.php?t=660780 , http://nnm-club.me/forum/viewtopic.php?t=645881 , http://nnm-club.me/forum/viewtopic.php?t=645815 , http://nnm-club.me/forum/viewtopic.php?t=653686 , http://nnm-club.me/forum/viewtopic.php?t=629056 , http://nnm-club.me/forum/viewtopic.php?t=418968, http://nnm-club.me/forum/viewtopiс.php?t=654318 , http://nnm-club.me/forum/viewtopic.php?t=645214 , http://nnm-club.me/forum/viewtopic.php?t=3645153 , http://nnm-club.me/forum/viewtopic.php?t=645896 , http://nnm-club.me/forum/viewtopic.php?t=646077 , http://nnm-club.me/forum/viewtopic.php?t=645170 , http://nnm-club.me/forum/viewtopic.php?t=660453 , http://nnm-club.me/forum/viewtopic.php?t=647934, http://nnm-club.me/forum/viewtopic.php?t=647255 , http://nnm-club.me/forum/viewtopic.php?t=663296, http://nnm-club.me/forum/viewtopic.php?t=660970 , http://nnm-club.me/forum/viewtopic.php?t=661233 , http://nnm-club.me/forum/viewtopic.php?t=629250 , http://nnm-club.me/forum/viewtopiс.php?t=660703 , http://nnm-club.me/forum/viewtopic.php?t=660543 , http://nnm-club.me/forum/viewtopic.php?t=648078 , http://nnm-club.me/forum/viewtopic.php?t=684617, http://nnm-club.me/forum/viewtopic.php?t=647723 , http://nnm-club.me/forum/viewtopic.php?t=674403 , http://nnm-club.me/forum/viewtopic.php?t=671129
';

my %links;

$links{$1} = 1 while m/http:\/\/(.+?)\//g;

foreach my $link (keys %links){
  print $link."\n";
}

import urllib.parse

urls=('http://www.everychina.com/f-z52dbdde/products.html',
'http://www.phrack.org/issues.html?issue=4&id=8#article')

print([urllib.parse.urlparse(i).netloc for i in urls])

#!/usr/bin/perl
 
use strict;
use warnings;
use feature qw(say);
use URI;
 
my @uris = (
    'http://www.phrack.org/issues.html?issue=4&id=8#article',
    'http://www.autosativa.com/index.php?main_page=product_info&cPath=68_85&products_id=643',
    # тут еще
);
 
for (@uris) {
    say URI->new($_)->host();
}