sub processhtml {
    my ($file) = $_[0];
    my ($filename, $i, $value2, $value3);
    my (@input, @values);

    ... substitution and pattern match stuff ...

    @values = split(" ", $i);

    if ($values[2] !~ /^[a-z]{1,2}$/i) {
       $values[2] = "";
    } else {
    }
    if ($values[0] !~ /000/) {
       $import_values{"ship"} = $file;
       $import_values{"weight"} = $values[0];
       $import_values{"dwg"} = $values[1];
       $import_values{"rev"} = $values[2];
       foreach $value2 (keys %import_values{"ship","weight","dwg","rev"}) {
          print TEMP ("\"$value2\",");
       }
       print TEMP ("\n");
    } else {
       $import_values{"ship"} = $file;
       $import_values{"weight"} = "";
       $import_values{"dwg"} = $values[1];
       $import_values{"rev"} = $values[2];
       foreach $value3 (keys %import_values{"ship","weight","dwg","rev"}) {
          print TEMP ("\"$value3\",");
       }
       print TEMP ("\n");
    }
}