ちなみに/iは無くてもできましたが、>>469を使うと
後にでてくる
if ($FORM{'hp'} !~ /[1-5]/){&error("hpwo選択してください");}
が反応しなくなってしまいました…。
（>>468の場合だと動いていました）
hpには1から5の数値がランダムで入るのですが…
連投すいません。