Help for this page
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)\.(.+)$/; }