(Korrketur!)

[Sancho]

Halt!!

Allerdings:

my $toplabel  =  "(?:(?:$alpha(?:$alphadigit-)*$alphadigit)$alpha)";

müsste in dieser Form doch wohl lauten:

my $toplabel  =  "(?:(?:$alpha(?:$alphadigit-)*$alphadigit)*$alpha)";

Oder? (Beachte den zusätzlichen Stern hinter der zweiten schließenden Klammer.)

Falsch! Sofort zurück!
Die Korrktur ist auch nicht richtig.
(Aber Cheatahs Vorgabe trotzdem auch nicht.)

Es bleibt bei dem, was ich oben schrieb:

[my] $topLabel = '(?:[a-zA-Z]+|[a-zA-Z]+[a-zA-Z\d-]{0,61}[a-zA-Z\d]+)';

*Schwitz*

und Ostergruß,

Sancho.