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

##</code><code>##

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