>>798
不正な入力です　を '' で囲って。
ローカルでテストできる環境があるなら perl -cTw でエラー読んでね。