And, if you are to use this code, you will want to make sure you have warning on, as well as be using the strict pragma, which this code does not have (And yes Corion, I think not showing a newbie to use strict is a reason for --, so don't whine when you see it).

The RE from above can also just be made into something like:

$HTML =~ s!(<TITLE>)(.*?)(</TITLE>)!$1 New Title $2!gism;

There are also various template modules and HTML modules on CPAN you may want to look at (like HTML::Parser, and HTML::Entities). But, it all depends on the scope of what you are trying to do here.

Cheers,
KM