Compress::Zlib comes default with perl, why don't you already have it?
Any particular reason you're not using ppm?

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"