use PerlIO::gzip;

open( ICMP, "<:gzip", "sometext.gz" );
open( OCMP, ">:gzip", "chosenlines.gz" );
while (<ICMP>) {
    print OCMP if /something matches/;
}
close OCMP;