CGIの質問です。以下は携帯用メール送信フォームCGI(http://www.deaikensaku.net/o1.shtml)の一部です。

まず条件を整理します。

１）$newsletterが「希望する」又は「登録する」の場合は書き込み処理を行う。

２）$mailにdocomo,ezweb,softbank,vodafoneのいずれかが含まれれば$file2に書き込み、当てはまらなければ$fileに書き込む。

１の条件式は、($newsletter eq '希望する' || $newsletter eq '登録する')　となります。

２で真を返す正規表現は、($mail =~ /(docomo|ezweb|softbank|vodafone)/)　となります。

他の方は$fileを上書きする方法を採られていますが、私は専用の変数（この場合$wfile）を使用する方が好きです。（単に好みの問題です）

$csv = "1";
$file = "./mail.csv";
$file2 = "./mail_keitai.csv";
$lock = "./lock/mail.dat";
$mail = $FORM{'mail'};
$name = $FORM{'name'};
$newsletter = $FORM{'newsletter'};
$mail2 = $FORM{'mail2'};

#書きこむ
#newsletterの値が'希望する'か'登録する'ならば実行する。
#それ以外なら何もしない

if($newsletter eq '希望する' || $newsletter eq '登録する'){

	#メールアドレス内文字列の判定を行う
	my $wfile;	# $wfileを局所化します。他で使っていなければやらなくてもOK
	if($mail =~ /(docomo|ezweb|softbank|vodafone)/){
		$wfile = $file2;
		}else{
		$wfile = $file;
		}

	open(FILE, "<$wfile") or &err2('エラーです。');
	@lines= <FILE>;
	close(FILE);

	for($x=0;$x <= $#lines;$x++){
		my @HashTmp = split("\,",$lines[$x]);
		$Hname{$HashTmp[2]} = $HashTmp[1]; 
		}

	unless(exists($Hname{$mail})){
		unshift(@lines,"$name,$mail\n");
		open(OUT, "+<$wfile") or &err2();
		print OUT @lines;
		close(OUT);
		}

	}

　ただ、質問文を読んでみると携帯電話用のアドレスとそれ以外のアドレスを別々のファイルで管理したいかの様に思えます。

　($mail =~ /(docomo|ezweb|softbank|vodafone)/)　ですと、例えば「docomonsense@hatena.ne.jp」（DoCommonSenseのミススペル）も「携帯電話アドレス」と判定されます。

　Docomoのメールアドレスは、～@docomo.ne.jp

　ezwebのメールアドレスは、～@ezweb.ne.jp

　SoftBankのメールアドレスは、～@softbank.ne.jp

　Vodafoneのメールアドレスは、～@＊.vodafone.ne.jp

ですので、

　($mail =~ /(\@docomo\.ne\.jp|\@ezweb\.ne\.jp|\@softbank\.ne\.jp|\.vodafone\.ne\.jp)/)

が適切かと。

　更に、これらのドメインは末尾にくるはずなので、

　($mail =~ /(\@docomo\.ne\.jp|\@ezweb\.ne\.jp|\@softbank\.ne\.jp|\.vodafone\.ne\.jp)$/)

この場合の／／内の「＄」は、文字列の末尾を表します。

　ついでに、ドメインネームについては大文字小文字を区別しませんので、

　($mail =~ /(\@docomo\.ne\.jp|\@ezweb\.ne\.jp|\@softbank\.ne\.jp|\.vodafone\.ne\.jp)$/i)

／／の外の「i」は、大文字小文字を区別しないパターンマッチを行う修飾子です。

　これをメールアドレス内文字列の判定に適用すると、

	#メールアドレス内文字列の判定を行う
	my $wfile;	# $wfileを局所化します。他で使っていなければやらなくてもOK
	if($mail =~ /(\@docomo\.ne\.jp|\@ezweb\.ne\.jp|\@softbank\.ne\.jp|\.vodafone\.ne\.jp)$/i){
		$wfile = $file2;
		}else{
		$wfile = $file;
		}

　こんな感じになるかと思います。

　また、［例えば］ezwebが～＠＊.ezweb.ne.jp　というメールアドレスも使い始めたら、「\@ezweb\.ne\.jp」の後にでも「|\.ezweb\.ne\.jp」を書き加えます。「\.ezweb\.ne\.jp」は、()外の$と合わさり「末尾が.ezweb.ne.jpで終わる」文字列にマッチします。

　ウィルコムも仲間に加える場合は、

($mail =~ /(\@docomo\.ne\.jp|\@ezweb\.ne\.jp|\@softbank\.ne\.jp|\.vodafone\.ne\.jp|\.pdx\.ne\.jp|\@pdx\.ne\.jp)$/i)

です。