say unpack 'aa(aaa@0)aa', 'ABCDEFGH';  # prints ABCDECD