while (<FILE>) {
    undef $val;
    if (/^# input/) { ($etc) = (split)[1] }
    elsif (/^\s\s\d+/) { ($space, $Nd, $RES, $PDB, $val) = split }
    elsif /^\s.*$NUM17\b/) { $val = (split)[3] }
    elsif /^\s.*$NUM18\b/) { $va2 = (split)[3] }

    if (defined $val) {
        push(@outlines, $val);
        print $val;
    }
}