chomp,print$_&&s/|/|/g<s/(.)\K\|(?=\1)/ /g,($p^$_|y/|/ /cr)=~y/\\!-z/|-/r=~s/.?-+./$&=~y! |!-+!r/ger,$/,$p=$_,$/for<>,$_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page