$sender =~ s/^=\?utf-8//i;
      $sender =~ s/\?=//i;
      use Encode::Simple qw (decode_utf8);
      $sender = decode_utf8($sender);