my $letter =    q<[a-zA-Z]>;
my $letdig =    q<[a-zA-Z0-9]>;
my $ldh =       q<[-a-zA-Z0-9]>;
my $label =     "$letter(?:$ldh*$letdig)?";
my $domain =    "$label(?:\.$label)*";