my ($catno, $desc, $pack, $min, $gst,
    $cost, $unitcost, $retail, $barcode) =
   map { s/\s+$//; $_ }
   unpack("A7 x2 A30 A4 A4 x13 A7 x15 A8 A8 A8 x13 A13", $_);