say unpack '(C/xa@)3', "\003\003\003abcdef"; # prints 'bcd'
say unpack '(C/xa@)3', "\005\004\003abcdef"; # prints 'ddd'