Select Code to Download

use strict;
use warnings;
...
{
    printf "%10s: %s\n", $_, is_whole($_) ? 'yes' : 'no';
}

23:51 >perl 989_SoPW.pl
         0: yes
...
         5: yes

23:51 >

/^\+?\d+$/
  ^