Select Code to Download

#!perl

...
+ 1234

return $_[0] =~ /^\s*[\+\-]?\d+\s*$/;

 if(( $_[0] =~ /^\s*[\+\-]?\d+\s*$/) and ($_[0] > 0)) {
    return 1;
...
  else{
    return undef;
  }