unpack 'c*', uc($_)

##</code><code>##

map ord, split //, uc($_)