#!/usr/bin/perl -w
# encode1.pl - Don Yang (uguu.org)
#
# 05/10/09

use strict;
use Compress::Zlib;

# Load input text
my $input = join "", <>;

# Compress using gzip
my $output = pack 'u', compress($input, 9);
$output =~ s/\s//sg;

# Output code
print <<"EOT";
use Compress::Zlib;
print uncompress(unpack "u", q{$output});
EOT