メールをheader部とbody部に分解・解析 (module)MIME-Parser back 単純に「最初の空行までがヘッダ、残りがボディ」ということで while (<FH>) { last if (/^$/); $header .= $_; } while (<FH>) { $body .= $_; } みたいな感じで。 各フィールド名とフィールドボディはうまいこと split するべし。 モジュールを使うなら、MIME::Parser で (MIME::Tools に同梱) ---- use MIME::Parser; my $parse = new MIME::Parser; $parse->output_to_core(1); my $buf = (メールデータの取得); my $entity = $parse->parse_data($buf); # 特定ヘッダのフィールド