#!/usr/bin/perl

# We need the Base64, encode_base64 function exactly
use MIME::QuotedPrint qw(encode_qp);
use strict;

sub process_stdin{
   while(<STDIN>){
      chomp($_);
      print substr(encode_qp("$_"), 0, -2)."\n";
   }
   return 0;
}

sub process_arguments{
   foreach my $cad (@ARGV){
      print substr(encode_qp("$cad"),0,-2)."\n";
   }
   return 0;
}

######
# main
######

my $numargs = $#ARGV + 1;

if (( $numargs == 0 ) or ( $numargs == 1 and  $ARGV[0] eq "-")) {
   process_stdin;
}else{
   process_arguments;
}
exit 0;