($part_code, $part_size, $part_size2, $quantity, $cryptic_field) = unpack ("A54 A7 A7 A10 A5", $line_from_file);
print OUT join ("|", ($partcode, $part_size2, $part_size));