#!/usr/bin/perl
# stuff
use warnings;
use strict;

open(SRVS, "< /opt/etc/servers")
    || die "Can't open /opt/etc/servers";

my $wserv = 0;
my @allserv = ();
while (my $line = <SRVS>) {
    if ($line =~ /server/) {
        if ($line =~ /web/) {
            @webserv = split(":", $line);
            $wserv = 1;
            push(@allserv, $webserv[0]);
        } else { 
            $wserv = 0;
        }
    }
}