my $line="partnum   partdesc  color     flavor    ";
my ($part, $desc, undef, $flava)= unpack "A10A10A10A10", $line;
print "--\n$part\n$desc\n$flava\n--";