メールアドレスの入力チェック
入力されたメールアドレスが正しいかを正規表現でチェックする。
if ($email =~ /^[-\w.]+@[-\w.]+\.[-\w]+$/)) {\wは便利なヤツ。英数とアンダーバーをまとめて指定できる。アドレスを吹くむ文字を入れられても困るから、最初から最後までを設定した。ドメインは一回以上.(ピリオド)で区切られる。
