say unpack '(C.*/X/xa@1)3', "\003\003\003abcdef"; # prints 'aaa'
say unpack '(C.*/X/xa@1)3', "\005\004\003abcdef"; # prints 'cba'