unpack 'c*', uc($_)