Select Code to Download

my ($prefix) = join('.',@{[split(/\./,$ipaddr)]}[0,1]);

my $prefix = join '.', (split /\./, $ipaddr)[0,1];