while (<LOG>) {

   do    { next }    until m/SCHEDULEREC OBJECT BEGIN SERVER_DAILY $date/;
   print ("$. : $_") if    m/SCHEDULEREC OBJECT BEGIN SERVER_DAILY $date/;
   print ("$. : $_") if    m/SCHEDULEREC OBJECT END SERVER_DAILY $date/;
   print ("$. : $_") if    m/ANS1228E Sending of object '(.*)' failed/ 

};