Select Code to Download

#!/usr/bin/perl

...
while (<$zip>) {
    print if ( /some regex/ );
}

gunzip < bigfile.gz | grep 'some regex'