my ($tag)= split(/|/,$_,2);