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