#!perl -p
s,<(del|s|st.*?)>(.+?)</\1>,$2."^H"x length$2,ge