generate

   1 #!/usr/bin/perl -w
   2 use strict;
   3 my $charset = '.+-:~09mAZ';
   4
   5 foreach my $len (0..10) {
   6     foreach (my $val=0; ; $val++) {
   7         my $s = sprintf "%0${len}d", $val;
   8         last if length $s > $len;
   9         $s =~ y/0-9/$charset/;
  10         print $s,"\n" or die $!;
  11     }
  12 }