if (($m == 0) && !($m eq '0')) {print "string\n";} else {print "number\n";}