#!/usr/bin/perl

use MIME::Base64 ();

#$encoded = MIME::Base64::encode($decoded);

for $encoded (<>) {
	$decoded = MIME::Base64::decode($encoded);
	print $decoded;
}