if ($num =~ /^[1-9]+$/)