#!perl -p00 s/(X(?=-X)|(?=-XX|--O)|XO- |O)\K-/X/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page