Select Code to Download

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

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