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