in reply to one liner function
perl -anF=\|,\\s -E 'for (my $i=1; $i<=$#F; $i+=2){print $F[$i],qq| +|};print qq|\n|' < file.txt [download]
All power corrupts, but we need electricity.