いきなり質問でｽﾏｿ
perl文法チェッカーをつかって
if (($item[$i] eq "なし") || (($item[$i] eq $getitem) && ($getitem =~ /<>WC|<>TN|<>NR|9mmパラベラム弾|45ACP弾|357マグナム弾|12ゲージショットガンシェル|矢/))) {
というのを確かめたら
結果：
Unmatched [ before HERE mark in regex m/<>WC|<>TN|<>NR|9mmパラベラム弾|45ACP弾|357マグナム弾|12ゲー << HERE ジショットガンシェル|矢/ at your CGI line 1.
ってでました｡
どういうことかさっぱりわからないのでだれか助けてください!