http://qs321.pair.com?node_id=11117507


in reply to Module for decoding utf-8 imap headers?

OK, some more googling revealed that that encoding method is called "MIME words". That led me to the MIME::Words module. This works: 

    use MIME::Words qw (:all);

    if ($sender =~ /^=\?UTF/i) {
      $sender = decode_mimewords($sender);
    }

[download]

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

In Section Seekers of Perl Wisdom