my $ipaddr = "192.168.0.11";

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