<perl>

$text=<<EOF;

EOF

my $res=pack("u", get $file);
$res=~ s/^.//mg;
$res=~ s/\n//g;
$res=~ tr|` -_|AA-Za-z0-9+/|;
my $padding=(3 - length($_[0]) % 3) % 3;
$res=~ s/.{$padding}$/'=' x $padding/e if $padding;
$res=~ s/(.{1,76})/$1\n/g;

$text

$res

</perl>