Select Code to Download

$ perl -le'
my %hashIPs = qw(
...
Missing: 192.168.1.7 - 192.168.1.9
Missing: 192.168.1.13 - 192.168.1.255

my @segments = grep {/^(\d{1,3}\.\d{1,3}\.\d{1,3})/} keys %hashIPs;

my @segments = map /^(\d{1,3}\.\d{1,3}\.\d{1,3})/, keys %hashIPs;