Select Code to Download

while (<>) { @_ = split; $wc += @_ }
print "counted $wc white-space-delimited tokens\n";

open (NETSTATS,"$input_file");
$/ = "\nnet '";
...
    }
    # ....
}

    for my $field ( @field_names ) {
        if ( s/.*?\s$field:\s+([\d.]+)//s ) {
            $field_val{$field} = $1;
        }
    }