say unpack 'aa(aaa@)aa', 'ABCDEFGH';  # prints ABCDEDE
say unpack 'aa(aaa@1)aa', 'ABCDEFGH'; # prints ABCDEDE