Select Code to Download

my $name = '(\w[\w-]*\w?)';       # any valid hostname segment
my $nnam = "(($name\\.)*$name)";  # one or more "name" segments
...
  "$nname\\.com" => 'a commercial domain',
  "$nname\\.edu" => 'an educational institution',
);

my $name = qr/(\w[\w-]*\w?)/;      # any valid hostname segment
my $nnam = qr/(($name\.)*$name)/;  # one or more "name" segments
...
  qr/$nname\.com/ => 'a commercial domain',
  qr/$nname\.edu/ => 'an educational institution',
);

my $name = qr/(\w[\w-]*\w?)/;      # any valid hostname segment
my $nnam = qr/(($name\.)*$name)/;  # one or more "name" segments
...
  { re => qr/$nname\.com/, desc => 'a commercial domain'        },
  { re => qr/$nname\.edu/, desc => 'an educational institution' },
);

my $name = qr/(\w[\w-]*\w?)/;      # any valid hostname segment
my $nnam = qr/(($name\.)*$name)/;  # one or more "name" segments
...
      desc => $domainnames[$_*2+1],
   };
}