my ($catno, $desc, $pack, $min, $gst, $cost, $unitcost, $retail, $barcode) = unpack("A7 x2 A30 A4 A4 x13 A7 x15 A8 A8 A8 x13 A13", $_);
print CSTORE_OUT join(", ", "", "", $catdesc, "", "", "", "", $catno, $barcode, $desc, $unitcost, "", "", "", $retail, $pack, $gst, "", "")."\n";