while ($gz->gzreadline($_) > 0) {
        print if /$pattern/ ;
    }