if ($num =~ /^(?:[^\D1]|1\d)\d*$/) {
   print "not a 1\n";
}