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