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(); }