Let me try again. Here's a node that illustrates the use of Archive::Zip, which may be useful to you.

Maybe you can tell us why the advice given until now has not helped you.

ivancho, I totally thought you were just giving him crap for no reason until I looked at his previous posts. I figured I wasn't the only curious one so I am listing them here for easy reference.
how to process several zipped files
Processing of Zipped file
opening multiple files


-Kevin

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}
[download]

thanks, Kevin

I admit, my initial reply was a bit abrupt. I just think that the process of learning involves communication from both sides, and OP's approach was mildly inappropriate.

Update: My apologies. I read "gzipped" where you had written plain old "zipped". Please disregard my answer below.

use PerlIO::gzip;
open my $in, '<:gzip', 'foo.txt.gz' or die $!;
while (<$in>) {
  #etc;
}
[download]