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