my (%seen,@unique);
while (<IN>) {
  chomp;
  $seen{$1}++ if ($_ =~ /^.+\.([A-Za-z0-9-_]+\.[A-Za-z]{2,})$/);
}
@unique = keys %seen;
printf "%s, ",$_ for @unique;
print "\n";