push @a, [ unpack 'CCSS', substr $data, 0, 6, '' ] while length $data;