Select Code to Download

$pattern = '[01]?[0-9]?[0-9]|2[0-4][0-9]|25[0-5]';

/(?:(${pattern})\.){3}($pattern)/;  # "$1.$2.$3.$4" = IP if matched

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

    return @octets;
}