こんにちは。色々試みみたのですがうまくいかないので教えてください。

送られてくるメールのデータは例えば以下のようです。

email = ○○@abc.com

これを 

email = <emai>○○@abc.com</email>

と言ったようなタグで囲んだ状態で受け取りたいのです。

# sendmail送信
else {
	$mail_body .= "$subjectよりメールの発信がありました.\n\n";
	$mail_body .= "送信日時：$date\n";
	$mail_body .= "ブラウザ：$ENV{'HTTP_USER_AGENT'}\n";
	$mail_body .= "ホスト名：$host\n\n";
	foreach (@key) {
		next if ($_ eq "mode");
		next if ($bef eq "$_");

		$in{$_} =~ s/&lt;/</g;/
		$in{$_} =~ s/&gt;/>/g;
		$in{$_} =~ s/&quot;/\"/g;
		$in{$_} =~ s/<br>/\n/g;

こんな感じで、フォームは1つだけで、<form action=・・・＞でcgiから
送信しています。

表示の編集部分にそう言った表示をしろと改造すればいいのは分かるのですが
どこをどういじったらいいのか良く分かりません。

ちなみに　KENTWEBさんのフォームメールです。