Select Code to Download

use strict;
use warnings;
...
    return unless $num =~ /^\d+$/a;
    return int $num eq $num;
}