#!/usr/bin/perl

local($/) = undef;
print enc(<STDIN>);

sub enc {
  my $s = shift;
  my $r = '';
  while( $s =~ /(.{1,45})/gs ){
    chop( $r .= substr(pack("u",$1),1) );
  }
  my $pad=(3-length($s)%3)%3;
  $r=~tr|` -_|AA-Za-z0-9+/|; 
  $r=~s/.{$pad}$/"="x$pad/e if $pad; 
  $r=~s/(.{1,76})/$1\n/g; 
  $r; 
}