>perl -wMstrict -le
"my $data = 'ABCDEF';
 my $len = unpack 'C4', substr $data, 0, 2, '';
 print $len;
 print qq{'$data'};
"
65
'CDEF'