while (<DATA>) {
   my ($host, $domain, $test) = /^([^,.]+)(,[^.]+|)\.(.+)$/;
   $domain =~ s/,/./g;
   $domain = '' if /\.net$/;
   print("Host:$host$domain Test:$test\n");
}