my @pieces = unpack "(A8)*", $data;