use strict;
use warnings;

my $file = "input.txt";
my @data;
open (IN,"<","$file");
my $count = 0;
 while (<IN>) {
  $count = 1 if /SCHEDULE\s"(DUMMY\sCHECK)".*/;
	if ($count >= 1 and $count <= 6) {
	@data = $_;
	print @data;
	$count++;  
	}
        
 }