Select Code to Download

while( <> ) {
    next if /^\s*$/;        ## Skip blank lines
...
    ++$log{ $src }{ $mode }{ $rest };
}

C:\test>619685 data\data.txt
mail1-in.nyc.domain.com
...
        (61) warning: malformed domain name in resource data of MX rec
+ord for ****:
        (1) warning: no MX host for **** has a valid address record
        (61) warning: valid_hostname: empty hostname