my @Str = map { my $wholho=$_; s#^( (?:ht|f)tp:// ) ( [^/]+ )/.*$ #$2#x; [ $_,$wholho ] } @{$CPAN::Config->{urllist}};