#!/usr/local/bin/perl -w
my $myfile = "test.gz";

open(IN,"zcat $myfile|") or die "Cannot open file: $myfile\n";

while (<IN>) {
    print ($_) if /mymatch/;
}