while (<DATA>) {
   chomp;
   my ($host, $domain, $test) = /^([^,]+),([^.]+)\.(.+)$/;
   next if not defined $host;
   $domain =~ s/,/./g;
   next if substr($domain, -4) eq '.net';
   print("Host: $host   Test: $test\n");
}