my ($pre, $suf) = split /\./, $DOMAIN;