$text =~ m|<(\S+?)>(.+?)<\/\1>|;