map { printf "Char(%s) = Ascii %d\n", $_, ord $_ } split //, $newName;

##</code><code>##

map {printf"%3d %2x %2s|",$_,$_,$_<32?'^'.chr$_+64:$_<127?chr$_:'^?'} (0..127);