Select Code to Download

my $packed = pack 'C/a*', 'the quick brown fox';
print "'$packed'";

my $data = unpack 'C/a*', $packed;
print "'$data'";

my @data = unpack 'C/a*', $packed;
print scalar @data, ':', join '|', @data;

my ($len, $val) = unpack 'C/a*', $packed;
print "$len:$val;";

Use of uninitialized value in concatenation (.) or string at C:\test\t
+est.pl line 16.
the quick brown fox:;

my $len = unpack 'C/a*', $packed;
my ($data) = unpack 'C/a*', $packed;