if ($x==0 && substr($x,0,1) ne '0') {
   # deal with non-number
   }
else {
   # deal with number
   }