my @out = map [ unpack 'Ca*' ], unpack '(a5)*', $data;