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