=?UTF-8?B?VHJ1ZUJsdWU=?= #### $sender =~ s/^=\?utf-8//i; $sender =~ s/\?=//i; use Encode::Simple qw (decode_utf8); $sender = decode_utf8($sender); #### =?utf-8?Q?rePurpose=20Global?=