perlfaq にあるように、メールアドレスの正規表現は結構複雑です。 が、ここでは、そんな面倒なことはしないで、メールアドレスっぽいものを 抽出して、テキスト (Content-Type: text/plain) で表示します。 ってゆぅか、それだけです。 もはや、何の目的で作ったのかすら覚えていません。
たとえば「編集」「すべて選択」などでコピーしたテキストを 突っ込んでみてください。
参考文献: Perlメモ:メールアドレスの正規表現