Help for this page

Select Code to Download


  1. or download this
    if ($num =~ /^[^\D1]\d+$/) {
   print "does not begin with a 1\n";
}
  2. or download this
    if ($num =~ /^(?:[^\D1]|1\d)\d*$/) {
   print "not a 1\n";
}