map{s@\<(del|strike|s)>(.*?)</\1>@$2."^H"x length$2@ge;print}<>