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, $_;
}