PurePerl: anchor regexp end public suffix search

to invalid domains TLDs like 'a' don't match
DNS: consolidated DNS functions into new DNS class