#!ruby -p
gsub(/<([ds][^p]*>)(.+?)<.\1/){$2+"^H"*$2.size}