say unpack 'aa.', 'ABCDEFGH';  # prints AB2
say unpack 'aaaa.', 'ABCDEFGH';  # prints ABCD4