Here is an example of my input file and these follow the same structure over and over:

SUBSCRIBER DEMOGRAPHIC INFORMATION

BIRTHDATE GENDER MEMBER IDENTIFICATION NUMBER

NAME

XXXXXXXXX

TRACE NUMBER: XXXXXXXX

CLAIM CLAIM PAYORS CLAIM NUMBER: XXXXXXXXXXXXXXXXXXXX

PERIOD BEG PERIOD END MEDICAL RECORD NUMBER: 01/14/2010 01/14/2010 BILLING TYPE:

EFFECTIVE ADJUDICATION PAYMENT CHARGE PAYMENT CHECK STATUS DATE PAYMENT DATE METHOD AMOUNT AMOUNT CHECK DATE NUMBER 02/01/2010 XX.XX 0.00

CLAIM LEVEL STATUS CATEGORY: A1 STATUS: 19

MODIFIER: PR PAGE: 11 CLINIC # XXXXXX (C980 ) XXXXXX REPORT NO: CPR601.01 SOMEINSURANCE HEALTH CARE CLAIM STATUS NOTIFICATION ISA CONTROL NO: XXXXXXXXXX ISA PROCESS DATE: 10/02/02 ISA PROCESS TIME: 04:52 GROUP CONTROL NO: XXXXXX ST CONTROL NO: XXXXXXXXX BHT REFERENCE ID: XXXXXXXXX BHT DATE: 02/02/2010 PAYOR NAME: SOMEINSURANCE ID: XXXXX PROVIDER NAME: XXXXXXXXXXX XXXXXXXXX XXXXX XX

NATIONAL PROVIDER ID: XXXXXXXXXX

I need everythin between SUBSCRIBER DEMOGRAPHIC - NATIONAL PROVIDER ID only if the CLAIM STATUS CATEGORY CODE is other than A1 (A3, A4, F2...there's a bunch).

Here is the code I have so far.

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;
[download]

This code gets me no errors in syntax when I run it but I get 0 KB output file. Please Help!!