my $name = "From: =?UTF-8?B?QW5keSBOZXdieSDDrcOpw7M=?= <andy\@chambresdhotesfrance.com>";

    use MIME::QuotedPrint;

    if ($name  =~ /utf-8|utf8/i) {
        $name= decode_qp($name);
        $name =~ s/([\200-\377]+)/from_utf8({ -string => $1, -charset => 'ISO-8859-1'})/eg;
    }

    print $IN->header;
    print "NOW: $name";