#!/usr/bin/perl

use strict;
use Compress::Zlib;

my $data = "789C2B28CACC2B51500A492D2E89C953B2E6020031990541";
print uncompress(pack 'H*', $data);