#!/usr/bin/perl

use Encode qw(decode);

my $string = decode ("MIME-Header", "=?utf-8?B?ODk5OWZkYWUxYjFiYWZiNTY5MWUzMjA1MTJjZGZiMzAuanBn?=" );

print $string;

