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