my $label =     "$letdig(?:$ldh*$letdig)?";
my $domain =    "$label(?:\.$label)*\.$letter{2,}";