#!/usr/local/bin/perl -w
use strict;
use Data::Dumper;
my $string="the quick brown fox";
my $packed=pack 'C/a*', $string;
my $unpacked= unpack 'C/a*', $packed;
print "'$unpacked'\n";
my @data= unpack 'C/a*', $packed;
print Dumper(\@data);
my ($len,$val)=unpack 'C/a*', $packed;
print "$len:$val\n";
__END__
'the quick brown fox'
$VAR1 = [
          'the quick brown fox'
        ];
Use of uninitialized value in concatenation (.) or string at ./packweird.pl line 11.
the quick brown fox:

##</code><code>##

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.4.18-bv1, archname=i686-linux
    uname='linux quasimod 2.4.18-bv1 #2 tue jul 2 16:22:51 cest 2002 i686 unknown '