Select Code to Download

while (<DATA>) {
   chomp;
...
   next if substr($domain, -4) eq '.net';
   print("Host: $host   Test: $test\n");
}

while (<DATA>) {
   print("Host: $1   Test: $2\n")
      if /^([^,]+),[^.]+(?<!,net)\.(.+)$/;
}