$calar =~ tr/\/{1,}//;
#############$1----###


##</code><code>##



##</code><code>##

use warnings;
use strict;
use MIME::Base64;
sub mimencode($);
my $inputstring = $ARGV[0];
my $outputstring = mimencode($inputstring);
print "input:$inputstring\n";
print "output:$outputstring\n";

sub mimencode($){
   my $in = shift;
   my $out = '';
   $out = MIME::Base64::encode_base64($in);
   return $out; 
}