in reply to Perlish approach to parsing a binary blob
You could chain the two statements.
my @out = map [ unpack 'Ca*' ], unpack '(a5)*', $data; [download]