Compress::Zlib makes it easy to do in-memory decompression:

use Compress::Zlib qw( uncompress );
my $data = uncompress( $mech->content )
    or die "Error decompressing content"
my @file = split( "\n", $data );
[download]