#!/usr/bin/perl -w

use strict;

my @status;

{
    my ($log, @split_log, $status);
    local $/ = qq{*****\n*****};
    while ($log = <DATA>) {
        $log =~ s/\Q*****\E\n\Q*****\E$//;
        @split_log = split "\n", $log;
        $status = ($split_log[$#split_log] =~ m/^Server Closed/)
            ? "complete\n" : "incomplete\n";
        push @status, $status;
    }
}

__DATA__
*****
Server Started Monday
data1
data2
Server Closed Tuesday
*****
*****
Server Started Wednesday
data3
data4
Server Closed Friday
*****
*****
Server Started
data5