$domain =~ s/\.\s+$//; This will chop off a trailing dot and any white space that follows but not a trailing dot without trailing whitespace. Is that really th

$domain =~ s/\.\s+$//; This will chop off a trailing dot and any white space that follows but not a trailing dot without trailing whitespace. Is that really the intent? Also, it will turn `domain.com.. ` into `domain.com.` $domain =~ s/[^A-Za-z0-9.]+/-/g; Won’t this change my—-domain.com into my-domain.com ? Double dashes are particularly common in internationalized domain names (https://en.wikipedia.org/wiki/Internationalized_domain_name#Example_of_IDNA_encoding https://en.wikipedia.org/wiki/Internationalized_domain_name#...), and this mangles perfectly-valid ones.