http://qs321.pair.com?node_id=1212580


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]

In Section Seekers of Perl Wisdom