use strict;
use warnings;

open my $infh, "-|", zcat => $myfile
  or die "Cannot open file: $myfile\n";

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