#!perl -p s,<([sd][^p]*?>)(.*?)</\1,$2.'^H'x length$2,ge
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page