#!/usr/bin/perl -w
# decode.pl - Don Yang (uguu.org)
#
# 11/04/12

use strict;
use Compress::Zlib;

my $input = join '', <>;
my $shifted = join '', (map {chr($_ - 25)} unpack 'C*', $input);
my $decoded = uncompress(unpack 'u', $shifted);
print $decoded;