$pkg_host_base = ($p->host =~ m{($pkg_host_mask)}) [0];