Select Code to Download

# e.g. $hosts{'DMZ Server'} = qr{(?i:server2)};

while( my ($name, $reg) = each %hosts ) {
    return $name if $x =~ $reg;
}

use MyHosts;

...
our %hosts = (
  'Server Name' => qr(?i:serverpattern),
);