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

##</code><code>##

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