The following is not necessarily the way I'd write it from scratch, but as a first revision from your code, I'd suggest this:

    while (<LOG>) {
        last if /SCHEDULEREC OBJECT BEGIN SERVER_DAILY $date/;
    }

    do {
        print "$. : $_" if /SCHEDULEREC OBJECT BEGIN SERVER_DAILY $dat
+e/;
        print "$. : $_" if /SCHEDULEREC OBJECT END SERVER_DAILY $date/
+;
        print "$. : $_" if /ANS1228E Sending of object '(.*)' failed/;
    } while <LOG>;
[download]

jdporter
...porque es dificil estar guapo y blanco.