sub g{print"$_\n";<>;next}while(<>){$_.=<>.<>;\x0d
s/^-XX/XXX/&&g;s/-(..\nX..\nX)/X$1/&&g;s/-(..\n.X.\n..X)/X$1/&&g;s/^X-X/XXX/&&g;s/-(.\n.X.\n.X)/X$1/&&g;s/^XX-/XXX/&&g;s/-(\n..X\n..X)/X$1/&&g;s/-(\n.X.\nX)/X$1/&&g;\x0d
s/(X..\n)-(..\nX)/$1X$2/&&g;s/-XX(\n.)/XXX$1/&&g;s/(X.\n.)-(.\n.X)/$1X$2/&&g;s/(X..\n.)-(.\n..X)/$1X$2/&&g;s/(X\n.)-(.\nX)/$1X$2/&&g;s/X-X(\n.)/XXX$1/&&g;\x0d
s/(X\n..)-(\n..X)/$1X$2/&&g;s/XX-(\n.)/XXX$1/&&g;s/(X..\nX..\n)-/$1X/&&g;s/(X\n.X.\n)-/$1X/&&g;s/-XX/XXX/&&g;s/(X.\n.X.\n.)-/$1X/&&g;s/X-X/XXX/&&g;s/(X..\n.X.\n..)-/$1X/&&g;s/(X\n..X\n..)-/$1X/&&g;s/XX-/XXX/&&g}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).