#!/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;

##</code><code>##

#!/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;

##</code><code>##

for (@z) { $_ -= 32; }
$y = pack("C*", @z[0..$#z-1]);
$_ = $y;

##</code><code>##

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