s{(<name>.*?</name>)<value>(.*?)</value>}{
    $1 . join '', map "<value>$_</value>", split /\|/, $2
}seg;