MIME::WordDecoder->default(MIME::WordDecoder->supported("UTF-8"));

$subj = decode('UTF-8', unmime($subj));