sub get_octets {
    my @octets = split(/\./, shift);
    return unless @octets == 4;

    foreach (@octets) {
        $_ += 0;   # Perhaps unnecessary, but forces the "octet" to be numeric or zero
        return unless $_ >= 0 && $_ <= 255;
    }

    return @octets;
}