:%s/<\([ds][^p]*>\)\(.\{-}\)<.\1/\2#\2#/g
qz/#
xvt#r&f#x@zq@z:%s/&/^H/g
ZZ