my @a = map [unpack "CCSS", $_], unpack "(a6)*", $data;