#!/usr/bin/perl -w

use MIME::Base64;
while (<STDIN>) {
 print(decode_base64($_));
}
