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

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