$content =~s#(<level1 id=\"([^"]*)\"(?:(?!<level1).)*?)<level2>#$1<level2 id="$2">#gsi;