質問です。
メールを処理するCGIをPerlで作っているのですが、ヘッダ部の
Subject:xxxxxx
を抜き出す方法がわかりません。

メールをヘッダ部とbody部に分け
if ($m_header =~/Subject:\s*(.*)/i){
　　$m_subject = $1;
}
だと、件名が長いときは切り落とされてしまいます。

Subject: =?ISO-2022-JP?B?GyRCPzclMyE8JUohPDMrO08hIzBsSmJAaCRyGyhC?=　←ここではなく
　=?ISO-2022-JP?B?GyRCO0UzXSQxJGs0azZIJCskaSEiN1AxRCROGyhC?=
　=?ISO-2022-JP?B?GyRCS1w8QSRyJEQkKyRgGyhCIChCeSBORUMgMjAwNS8yLzIxKQ==?=　←ここまでマッチさせたい

ttp://www110.kir.jp/study/jissen/script2130.html
の「タイトルの抽出」部分にある/MIME/文字列の$`だと、相手のメーラーに
よってはIn-Reply-ToやReferencesやMessage-Idなども件名に入ってしまい
うまくありません・・・。