NAME DOE, JOHN                    HIC XXXXXXXXXX     ACNT XXXXXXXX        ICN XXXXXXXXXXXXX    ASG Y MOA MA01  MA18 
1234567891201 120109    22 001 72070 26         38.00       11.45        0.00        2.29 CO-45          26.55        9.16
                                                                                           PR-2            2.29
PT RESP         2.29          CLAIM TOTALS       38.00       11.45        0.00        2.29                26.55        9.16
ADJ TO TOTALS: PREV PD                INTEREST        0.00       LATE FILING CHARGE        0.00    NET        9.16


##</code><code>##

use strict;
use warnings;

my $dir = "V:/";

open OUTPUT, "> PEP/dirtest.txt" or die$!;

print "What is acct number ?";

my $acct_number = <STDIN>;

my @files;
my @data;
my @lines;
my $file;
my $flag1;
my $flag2;

	opendir(BIN, $dir) or die "Can't open $dir: $!"; 
	
	
			@files = map {$dir.'/'.$_} grep { $_ !~ /^\./ } readdir BIN;
 
				
				{ foreach $file (@files) 
				
					{ open FH, "$file";
	
							while (<FH>) { 
							
								 $flag2 = 1 if $flag1 and /$acct_number/;  
								 $flag1 = 1 if /NAME/;
								  push @lines, $_ if $flag1;
	
							if (/ADJ TO TOTALS:/) {
	
							print OUTPUT @lines if $flag2;
								$flag1=0;
								$flag2=0;
								@lines=();	}
			
							
			
				}					}	}  
 closedir(BIN);