$length = unpack "C4", substr $data,0,2,'';

##</code><code>##

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