# First match !
	$data =~ s|^(.*<section1>.*<rstate>).+(</rstate>.*</section1>.*)$|$1$newrstate$2|s;

# Second match!
	$data =~ s|^(.*<section2>.*<rstate>).+(</rstate>.*</subsection>.*</subsection>.*</subsection>.*</section2>.*)$|$1$newrstate$2|s;

# Third match!
	$data =~ s|^(.*<section3>.*<rstate>).+(</rstate>.*</section3>.*)$|$1$newrstate$2|s;