my(@ids,$text,$length);
(@ids[0..9],$text,$length) = unpack("N10C40n",$buff) ;