メールアドレスの正規表現とかめんどくさいから自分で書こうと思わないなぁ……実用で使われているまともなコードがあるんだからそれ使ったらいいのにと思う。言語違くても正規表現はだいたい Perl 互換であるんだから CPAN のはそのまま使えるし……