server1 server2 server3

##</code><code>##

server1:NY:3600
server2:NY:3600
server3:NY:3600
server4:Boston:3600

##</code><code>##

"webserver1 server2 server3 webserver4"

##</code><code>##

server1:NY:3600
webserver1:NY:3600
server2:NY:3600
server3:NY:3600
webserver4:NY:3600
server4:Boston:3600

##</code><code>##

#!/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;
        }
    }
}