qw(:#8@1O <#=~y/.//%6]=~s#.(.)#print$a=ord$&,$",$1x$a,$/#ger