Help for this page
#!"#$%&'()*+,-./0123456789:;<=>?@ #ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_` ... #ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_` #abcdefghijklmnopqrstuvwxyz{|}~ print "Show me the encoding!\n";
sub print_enc { my $file = shift; ... } print "\nCount $count\n"; }
@unencoded = ( 35,33,34,35,36,37,38,39,40,41, ... 65,79,99,); # Count 333 chars print chr($_) for @encoded;