while($_=~m/\<(.+?)\>(.+?)\<\/\1\>/sig)