search for "zip" on cpan .. e.g. Archive::Zip

Update: added snippet:

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new( 'xyz.zip' );
my $s = $zip->contents('xyz');
[download]

or if it's a big file (i.e. don't want whole thing in memory), use extractMember() to write it to disk, then read through it a line at a time ..