($tag)=split (/\|/,$data,2);