my %servers;
while (<>) {
   my ($server) = /^([^:]+):/ or next;
   delete($servers{$1}) if $server =~ /^web(.*)/;
   $servers{$server} = 1 if !$servers{"web$server"};
}

my @servers = keys(%servers);