my $name = "=?UTF-8?B?QW5keSBOZXdieSDDrcOpw7M=?=";

    use MIME::Base64;
    $name =~ s|\Q=?UTF-8?B?||i;
    $name = decode_base64($name);
    $name =~ s/([\200-\377]+)/from_utf8({ -string => $1, -charset => 'ISO-8859-1'})/eg;