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