my ($iprefix, $ipsuff) = $ipaddr =~ /(\d+\.\d+)\.(\d+\.\d+)/;