perl -pi.bak -e 's#<\s*title\s*>([^<]+|<(?!\s*/))*<\s*/\s*title\s*>#<titile>New Title</title>#i' <files>

# this will correctly parse horrid stuff like
<TiTle >
One is < two
more
stuff
</ title>
<foo>bar</foo>