>perl -MEncode=decode -MEncode::MIME::Header -E 'say decode("MIME-Header", "=?UTF-8?B?VHJ1ZUJsdWU=?=")'
TrueBlue
>