[tlug] Decode MIME shift_jis

[Batara Kesuma <bkesuma@example.com>]

Hi all,

I have perl script that inject all incoming emails to MySQL. Now usually
Japanese email use this for the header part:
=?ISO-2022-JP?B?
I can decode it using:
use NKF;
$text = nkf("-m", $mime);

or
use Jcode;
$text = Jcode::->new($mime)->mime_decode();

But sometimes Microsoft Outlook sends email with header part looks like:
=?shift_jis?Q?

How can I encode this? I tried:
$text = nkf("-mQ", $mime)
and also
$text = Jcode::->new($mime)->mime_decode();

But it didn't work. Anybody knows? Thank you very much.

--bk