my(@ids,$text,$length) = unpack("N10C40n",$buff) ;