while (<$RLOG>) {
    if (/(^Log Entry\s\d+:.*)/) {
        ++$recordcount;
        my $N = $1 .+ "\n\n";
        my $e = <$RLOG>;
        my $x = <$RLOG>;
        my $t = <$RLOG>;
        my $l = <$RLOG>;
        my $n = <$RLOG>;
        my $s = <$RLOG> .+ "\n==========================================\n";
        push @ary, ($N,$e,$x,$t,$l,$n,$s);
    }
}
for (@ary) {
   print $PLOG, $_;
}

##</code><code>##

 while(<$PLOG>) {
    ++$alert3orMoreCount if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
    $pos = $. if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
}     

##</code><code>##

 splice( @ary, $pos, 0, $RTF{ctbl}, $RTF{red}, $RTF{ered} );

##</code><code>##

__DATA__

Log Entry 14: 27 Feb 2011 10:03:42

Alert Level 2: Informational
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D6A217E0200F0 FFFF027000120300

==========================================
Log Entry 13: 20 Feb 2011 08:33:42

Alert Level 2: Informational
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D60D1E60200E0 FFFF027000120300

==========================================
Log Entry 12: 20 Feb 2011 07:14:27

Alert Level 4: TEST ALERT!!!!!!!!!!!!!!!!
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D60BF530200D0 FFFF027000120300

==========================================
Log Entry 11: 13 Feb 2011 07:24:32

Alert Level 5: TEST ALERT!!!!!!!!!!!!!!!!!!!!
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D5787300200C0 FFFF027000120300

==========================================
Log Entry 10: 06 Feb 2011 10:36:26

Alert Level 2: Informational
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D4E79AA0200B0 FFFF027000120300

==========================================