if ($num =~ /^[^\D1]\d+$/) {
   print "does not begin with a 1\n";
}