while (<>) {
    if(/START/ ... (my($time) = /END TIME (.+)/)) {
     unless(defined $time) {
        next if /START/ || /^\s*$/;
        print;
     } else {
        print "End time at $time\n";
     }
   }
}