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