#!/usr/bin/env perl 

use strict;
use warnings;

my @base = ( 'a'..'z', 'A'..'Z', 0..9 );

for my $i (@base) {
    print "$i\n";
    for my $j (@base) {
        print "$i$j\n";
        for my $k (@base) {
            print "$i$j$k\n";
        }
    }
}


__END__
=head1 NAME

non-forumla-based-text-encoder-with-compression.pl

=head1 DESCRIPTION

=over 4

=item * Create 242,234 unique codes, 1-3 characters in length,
from the characters {a-zA-Z0-9}.

=item * 62 (1 char codes) + 3844 (2 char codes)
+ 238,328 (3 char codes) = 242,234 unique codes.

=item * (Somewhat like MIMEbase64 encoding, but my encoding is
non-formula based.)

=item * ...

=back

=cut