#!/usr/bin/perl
@t = ('A'..'Z','a'..'z','0'..'9','+','-');
sub encode {
  $f = 'B8' x length $_[0];
  $b = join '', unpack $f, $_[0];
  @c = map{$t[eval"0b$_"]} ($b.'0'x($W-1)) =~ /(.{$W})/g;
  $" = '';
  "@c"
}
 
%t = map{$_ => $i++} @t;
sub decode {
  $f = "%0${W}b";
  $b = join '', map{sprintf $f,$t{$_}} split '', $_[0];
  @b = $b =~ /(.{8})/g;
  pack 'B8' x @b, @b;
}
 
use feature 'say';
@data = <STDIN>;
for $w (6,5,3) {
  $W = $w;
  say "Width: $W";
  for (@data) {
    chomp;
    say;
    $e = encode $_;
    say $e;
    say decode $e;
  }
}

IyEvdXNyL2Jpbi9wZXJsCkB0ID0gKCdBJy4uJ1onLCdhJy4uJ3onLCcwJy4uJzknLCcrJywnLScpOwpzdWIgZW5jb2RlIHsKICAkZiA9ICdCOCcgeCBsZW5ndGggJF9bMF07CiAgJGIgPSBqb2luICcnLCB1bnBhY2sgJGYsICRfWzBdOwogIEBjID0gbWFweyR0W2V2YWwiMGIkXyJdfSAoJGIuJzAneCgkVy0xKSkgPX4gLygueyRXfSkvZzsKICAkIiA9ICcnOwogICJAYyIKfQoKJXQgPSBtYXB7JF8gPT4gJGkrK30gQHQ7CnN1YiBkZWNvZGUgewogICRmID0gIiUwJHtXfWIiOwogICRiID0gam9pbiAnJywgbWFwe3NwcmludGYgJGYsJHR7JF99fSBzcGxpdCAnJywgJF9bMF07CiAgQGIgPSAkYiA9fiAvKC57OH0pL2c7CiAgcGFjayAnQjgnIHggQGIsIEBiOwp9Cgp1c2UgZmVhdHVyZSAnc2F5JzsKQGRhdGEgPSA8U1RESU4+Owpmb3IgJHcgKDYsNSwzKSB7CiAgJFcgPSAkdzsKICBzYXkgIldpZHRoOiAkVyI7CiAgZm9yIChAZGF0YSkgewogICAgY2hvbXA7CiAgICBzYXk7CiAgICAkZSA9IGVuY29kZSAkXzsKICAgIHNheSAkZTsKICAgIHNheSBkZWNvZGUgJGU7CiAgfQp9

QUJDREVGRwpIZWxsbywgV29ybGQhCjAxMjM0NTY3ODkmcXVvdDsjJCUmYW1wOycoKWA9QAo=

ABCDEFG
Hello, World!
0123456789"#$%&'()`=@