while($xml=~m/\<(.+?)(\s.*?)?\>(.+?)\<\/\1\>/sig){