じゃあこれは?
my($user,$sv) = split(/\@/,$FORM{mail});
if($sv!~/.ne.jp/){
  print "このメールアドレスは使用できません。";
  exit;
}