my @errors;
{
    local $/ = "=================================\n";
    open my $fh, '<', '/path/to/file.txt' or die $!;
    while (<$fh>) {
        chomp;
        push @errors, $_ if /D : Error Occurred/;
    }
    close $fh or die $!;
}