$data=~ s{<rstate>[^<\n]+</rstate>}{<rstate>$new_text</rstate>}g