use strict;
use warnings;

open TEST, "tests.txt" or die $!;
open OUTPUT, "> output1.txt" or die$!;



my @data;
my $data;



while (<TEST>) {

	if (/SUBSCRIBER DEMOGRAPHIC/../CLAIM LEVEL STATUS CATEGORY/)
	    {   @data = $_;
		next; 


	foreach ( $data, @data) {
		
		if ($data =~ /A1/) {	
			print OUTPUT @data;
			}
			
			
}
}

}


close TEST;
close OUTPUT;