# WA test 2
my @sites;
while (<>) {
    push(@sites, (/<a\s*href="(.*?)"\s*>/g));
}
foreach(@sites) {
    s/^([^:\/?#]+:\/\/)?([^\/?#:]*)(.*)/$2/g;
}
my %answer = map {$_, 1} (@sites);
foreach (sort keys %answer) {
    print "$_\n";
}

# WA test 1
my @sites;
while (<>) {
    push(@sites, (/<a\s*href="(.*?)"\s*>/g));
}
foreach(@sites) {
    s/http:\/\///g;
    s/\/.*//g;
    s/:.*//g;
}
my %answer = map {$_, 1} (@sites);
foreach (sort keys %answer) {
    print "$_\n";
}