#! /usr/local/bin/perl
unshift(@ARGV,'-') if $#ARGV < $[;
$t="";
if($ARGV[$[]=~m/-v/){shift @ARGV;$v=1;}
while(<>){
    if($v){
	print STDERR $.," lines decoded.\r" unless($.%50);
    }
    chop if(m/\n$/);
    $_=$t.$_;
    while(m/^[A-Za-z0-9+\/=]{4}/){
	$_=$';
#	print $&;
	$t=$&;
	$s=$&;
	$i=0;
	while($t=~m/^./){
	    $t=$'; # print $&;
	    $i<<=6;
	    $tmp=index("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/",$&);
	    if($tmp >= 0){
		$i+= $tmp;
	    }
#	    print index("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/",$&),"-";
	}
#	print $i;
	if($s=~m/==$/){
	    for($j=2;$j>=2;$j--){
		printf "%c",255&( $i>>($j*8));
	    }
	}elsif($s=~m/=$/){
	    for($j=2;$j>=1;$j--){
		printf "%c",255&( $i>>($j*8));
	    }
	}else{
	    for($j=2;$j>=0;$j--){
		printf "%c",255&( $i>>($j*8));
	    }
	}
    }
}