#!/usr/bin/perl -w
use strict;
my $x = "0321008106149147148064129142143148136133146064112133146140" .
        "0641361291311391331461421121141051101161";
my($y, @z);
@z = substr($x, @z+7, 75) =~ /(.{1,3})/xg;
for (@z) {
        $y = pack("C*", @z[0..$#z-1]);
        $_ -= substr($x, substr($x, @z-21, 2), 3);
        }
$_ = $x ? $y : @z;
$x = substr ($x, @z-41, @z-10);
$x=~s/(.{2,3})/pack 'c*', $1/eg;
eval $x;