https://dmainname.blogspot.com/2021/06/perl-regex-domain-name.html