>perl -wMstrict -le
"my $struct = qq{\x0d\x00\x0b\x00Just Another Perl Hacker};
 ;;
 my @len = unpack 'ss', $struct;
 print qq{@len};
 ;;
 my @data = unpack qq{(x[s])2 A$len[0] A$len[1]}, $struct;
 print qq{'$data[0]' '$data[1]'};
"
13 11
'Just Another' 'Perl Hacker'