s{\t([^\t]+)\t}{
   my $s = "|$1";
   $s =~ s{\|([^|]*)\|([^|]*)}{<name>$1</name><value>$2</value>}sg;
   $s
}eg;