while (<DATA>) {
   chomp;
   my ($host, $test) = split(/\./, $_, 2);
   $host =~ s/,/./g;
   $host =~ s/\..*\.net$//;
   print("Host:$host Test:$test\n");
}