Compress::Zlib::uncompress(substr $data, 8);

uncompress(Bytef *dest, uLongf *destLen, Bytef *source, uLongf *sourceLen);

$data = "F" . substr($data, 1, 7)
          . Compress::Zlib::uncompress(substr $data, 8);