chomp,print$_&&s/|/|/g<s/(.)\K\|(?=\1)/ /g,($p^$_|y/|/ /cr)=~y/\\!-z/|-/r=~s/.?-+./$&=~y! |!-+!r/ger,$/,$p=$_,$/for<>,$_