ascii.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my @cont = ('@', 'A'..'Z', qw( [ \ ] ^ _ ));
for my $i (0..$#cont) {
    printf "%02X ^%s   ", $i, $cont[$i];
    print "\n" if $i % 8 == 7;
}

my @print = 0x20..0x7E;
for my $i (0..$#print) {
    printf "%02X %s    ", $print[$i], chr $print[$i];
    print "\n" if $i++ % 8 == 7;
}

printf "%02X ^%s   \n", 0x7F, '?';

__END__
00 ^@   01 ^A   02 ^B   03 ^C   04 ^D   05 ^E   06 ^F   07 ^G   
08 ^H   09 ^I   0A ^J   0B ^K   0C ^L   0D ^M   0E ^N   0F ^O   
10 ^P   11 ^Q   12 ^R   13 ^S   14 ^T   15 ^U   16 ^V   17 ^W   
18 ^X   19 ^Y   1A ^Z   1B ^[   1C ^\   1D ^]   1E ^^   1F ^_   
20      21 !    22 "    23 #    24 $    25 %    26 &    27 '    
28 (    29 )    2A *    2B +    2C ,    2D -    2E .    2F /    
30 0    31 1    32 2    33 3    34 4    35 5    36 6    37 7    
38 8    39 9    3A :    3B ;    3C <    3D =    3E >    3F ?    
40 @    41 A    42 B    43 C    44 D    45 E    46 F    47 G    
48 H    49 I    4A J    4B K    4C L    4D M    4E N    4F O    
50 P    51 Q    52 R    53 S    54 T    55 U    56 V    57 W    
58 X    59 Y    5A Z    5B [    5C \    5D ]    5E ^    5F _    
60 `    61 a    62 b    63 c    64 d    65 e    66 f    67 g    
68 h    69 i    6A j    6B k    6C l    6D m    6E n    6F o    
70 p    71 q    72 r    73 s    74 t    75 u    76 v    77 w    
78 x    79 y    7A z    7B {    7C |    7D }    7E ~    7F ^?