Select Code to Download

use PerlIO::gzip;

...
    s/[\r\n]+/\n/;  # for example, normalize line terminations
    print OUTPUT;
}

open( INPUT, "gunzip < old.gz |" ) or die $!;
open( OUTPUT, "| gzip > new.gz" ) or die $!;
while (<INPUT>) {
    # same as above...
}