print+(AA..ZZ)[($c+=ord)/2],$c%2?$":$/for"

AH

*%
4,;'

K)
"=~/./sg