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