#!perl -p
s!<([sd][^p]*>)(.+?)</\1!$2.'^H'x length$2!ge