use strict;
use warnings;
use Tie::File;
use Archive::Zip; 
use Archive::Zip::MemberRead; 
use File::Glob ':glob';

my $Zip_File = "test.zip";

my $zip = new Archive::Zip($Zip_File);
my @file2 = $zip->membersMatching( '.*' );
for my $file2 (@file2){
    my $fh  = new Archive::Zip::MemberRead($zip, $file2); 
    my $fh2 = $file2->fileName();

local $/;
while (defined(my $line = $fh->getline())) { 
       chomp($line);
       #
	if ($line =~/S\/R Sending command\r?\n-+\r?\nNRT CC\/(\d+)/) {
	    print "$1\n$line\n";
           } # if
          } # while
         $fh->close();
       }