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]