++BrowserUK.

However, the print statement in

my $packed = print pack 'C*', @a;
[download]

may cause some problems when you try to turn the sausage back into the pig.

my $packed = pack 'C*', @a;
[download]

might get you further if you need to unpack it. ;)

my @a = ( 0,54,28,76,126,0,28,54,62,54,0,28,54,60,48,0,54,54,62,54,0 )
+;
my $packed = pack 'C*', @a;
my (@unpacked) = unpack 'C*', $packed;

print "$packed\n";
print join ',', @unpacked;
[download]

Cē