new.pl

#!/usr/bin/perl 

use File::Find;

find({ wanted => \&process_file, no_chdir => 1 }, "NZ_Original");

sub process_file {
	 my $F = $File::Find::name;

    if ($F =~ /V2A$/ ) {
        print "$F\n";
         open(FILE, "$_") || die "File not found";
			my @lines = <FILE>;
			close(FILE);
			
			
			$line = $lines[13];
			@pieces = split ( /\s+/, $line );
			
			$acc = $pieces[2];
			if($acc >= 50){
				print "$F\n";
			}
			print $acc;
    }
    
}