>perl -wE "say for unpack '(CX/xX.@0x/A)*', qq(\03ab\05cdef\06ghijk)"
ab
cdef
ghijk

>perl -wE "say for unpack '(CCXX/xXX.@0xx/A)*', qq(\x03\x04Hi\x43\x08Hello!)"
3
Hi
67
Hello!


##</code><code>##

>perl -wE "say for unpack '(C/xX2.@0x/A)(CX2/x.@0x/A)*', qq(\03ab\05cdef\06ghijk)"
ab
cdef
ghijk

>perl -wE "say for unpack '(CC/xX4.@0xx/A)(CCX4/x.@0xx/A)*', qq(\x03\x04Hi\x43\x08Hello!)"
3
Hi
67
Hello!