Select Code to Download

<name>test</name><value>431|alpha|123|bravo|542|charlie|412</value>

perl -pe "do{s/(\<value\>.+?)\|(.+?)\|(.*?)(?=\<\/value\>)/$1\<\/value
+\>\<name\>$2\<\/name\>\<value\>$3/gi;} while /\|/;"

<name>test</name><value>431</value><name>alpha</name><value>123</value
+><name>bravo</name><value>542</value><name>charlie</name><value>412</
+value>

perl -pe "s/(\<value\>|\G)(.+?)\|(.+?)\|(.*?)(?=\<\/value\>)/$1$2\<\/v
+alue\>\<name\>$3\<\/name\>\<value\>$4/g"

<name>test</name><value>431</value><name>alpha</name><value>123|bravo|
+542|charlie|412</value>