:
s!\W*\(\w\+\)\(<.*\)*$!<\1>\2</\1>!
t