if ( eval { use warnings FATAL => 'numeric'; $_num < 1 && $_num >= 0 } ) {

  # $_num is OK...

  $_num =~ /(.*)/;
  $_num = $1;       # untaint $_num

  # ...

}