#!perl -p
eval y/ /-/r?s/ /+/+redo:s/ /|/;y/+/ /