Help for this page
my $valid_host = qr/\A (?: ... (?: $RE{net}{domain}{-nospace}{-rfc1101}\.? ) ) \Z/x;