use strict;
use warnings;



print "What file do you want parsed? ";

my $file=<STDIN>;

my @data;
my $data;
my $lines;

open (TEST,"$file") or die$!;
open OUTPUT, "> peptest.txt" or die$!;

while (<TEST>) { 

if (/NAME /../ADJ TO TOTALS:/) {
  push @data, $_;
  foreach $data (@data) { 
    print "data -- $data\n";  ## Added for debugging
    if ($data =~ /1235114182/) {
      $lines.=$_; 
      my $zero = substr $lines, 118, 5;
      print "zero -- $zero\n";
      if ($zero == "0.00") {
        #Version1 print OUTPUT "$data \n";
        print OUTPUT "@data \n";
        print " data sent to output file\n";  ## Added for debugging
      } 
      else {print "  data skipped\n"}  ## Added for debugging
      $zero="";
      $lines="";
      $data="";
      #Version1 @data=();
    }
    @data=();
    print "--------end of one iteration of foreach loop-----------\n\n"; ## Added for debugging
  }
}
}    
close TEST;
close OUTPUT;