Select Code to Download

my ( $head, %chunks ) = unpack 'a8 (x4 A4 X8 N x4 /a x4)*', $input;
say for keys %chunks;