$tag=substr ($data,0,index($data,'\|',));