my $string = <<ENDSTRING;
 <thing>
 condition condition
   condition   condition
    randomness
      other junk
 </thing> 
ENDSTRING

print "$string\n";

$string =~ s{ <thing>.*?</thing> }
            {<THANG>blah</THANG>}msx;

print "$string\n";