say unpack 'aa.aa', 'ABCDEFGH';  # prints AB2CD
say unpack 'a(a.a)a', 'ABCDEFGH';  # prints AB1CD
say unpack 'a(a.*a)a', 'ABCDEFGH';  # prints AB2CD