$string =~ s/(<body\s.*?>)/$1$newContent/is;