Select Code to Download

my %hash;
my @chars     = (0..9,'A'..'Z','a'..'z',map{chr$_}32..47,58..64,91..96
+);
...
    $num = $num * $base + $hash{$_} for $str =~ /./g;
    $num;
}

my $number = decode_base 36, 1009;
say lc encode_base 36, $number++ for 0..36;