Select Code to Download

my @ch = (' ', '0'..'9', 'A'..'Z');
my $base = @ch;
...
}

print $s;  # ZZZZZZ

my @val;
$val[ ord($ch[$_]) ] = $_ for 0..$#ch;
...
    $m *= $base;
}
print $num;