Select Code to Download

  DB<25> for (0..20) { $a= eval qq{"\\$_"}; print "\\$_: ",ord($a),"\n
+";}
\0: 0
...
\18: 1
\19: 1
\20: 16