use MIME::Words qw (:all);

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