say unpack 'aa(aa).*/Xaa', 'ABCDEFGH';  # prints ABCDAB
say unpack 'aa(aa.*/Xaa)', 'ABCDEFGH';  # prints ABCDAB