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