#!/usr/bin/perl

use strict;
use warnings;

for (my $i = 0; $i < 52; $i++)
{
  $a = chr($i);
  $a =~ tr|\0\1\2\3\4\5\6\7\8\t\n\0x0B\r\0x0D\0x0E\0x0F\0x10\0x11\0x12\0x13\0x14\0x15\0x16\0x17\0x18\0x19\0x1A\0x1B\0x1C\0x1D\0x1E\0x1F !"#$%&'()*+,-./0123456789|ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz|;
  print "chr $i -> $a \n";
}

exit;