フォームで「0」を入力したときに、Perlで空か0か判断する方法あります?