#!perl -p
s#\W*(\w+)(<.*|$)#<\1>\2</\1>#&&redo