while (<DATA>) {
  if(/START/.../END TIME (.+)/) {
    my $time = $1;
    next if(/START/ | /^\s*$/);     
    print $time, qq{\n};
  }
}
__DATA__
START
END TIME 123
START

END TIME 456