DB<25> for (0..20) { $a= eval qq{"\\$_"}; print "\\$_: ",ord($a),"\n";}
\0: 0
\1: 1
\2: 2
\3: 3
\4: 4
\5: 5
\6: 6
\7: 7
\8: 56
\9: 57
\10: 8
\11: 9
\12: 10
\13: 11
\14: 12
\15: 13
\16: 14
\17: 15
\18: 1
\19: 1
\20: 16