# map{unpack("c*",pack((pack"c",$c)."*",$_))} 
# map {hex $_}
# map {unpack("c", pack(____, $_))} # fill in the blanks!