#!/usr/bin/perl

use MIME::Base64;

local $/ = undef;
print decode_base64(shift||<STDIN>);