my $string      = '/h/plkr/3/www.plkr.org/rss.pl';

##</code><code>##

my $string      = '/h/plkr/3/426933';

##</code><code>##

my $token_counts = {
    '/' => 10000,
    '.' => 3000,
    'w' => 2342,
    'e' => 2000,
    't' => 2000,
    # ... etc,  for any character that might appear in the input string
};
my $string      = '/h/plkr/3/www.plkr.org/rss.pl';
my $huff = Algorithm::Huffman->new($token_counts);

my $huff_encoded = $huff->encode($string);
my $printable = encode_base64($huff_encoded);