どっか勘違いしてるのでしょうか？
perlなのですが、
テキストボックスに入れた数値を$in{'count'}に格納して、
それが数字じゃなければエラー出しして終わりにしたいのですが、
数値だろうと、そうでなかろうと、いかのunlessの中を通りません。

　unless ( ($in{'count'} =~ m/^[1-9][0-9]*$/) || ($in{'count'} == 0) ){
　　print "Content-type: text/html\n\n";
　　print "数字を入れてください。もどってください。";
　　exit;
　}