Select Code to Download

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

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

use MIME::Words qw( decode_mimewords );
use Encode      qw( decode );
...
}

$subj = mime_decode($subj);