$string = 'blah blah blah <some_sort_of_tag>CHANGE ME</some_sort_of_tag> blah blah blah';
$newtext = 'I AM NEW';
$string =~ s|^(.*<some_sort_of_tag>).+(</some_sort_of_tag>.*)$|$1$newtext$2|;