use warnings;
use strict;
use XML::Twig;

my $x = '<map>
    <section1>
        <parameter>Some text</parameter>
        <rstate>CHANGE_THIS</rstate>
    </section1>
    <section2>
        <subsection>
            <parameter>dont change this</parameter>
            <rstate>CHANGE_THIS</rstate>
        </subsection>
        <subsection>
            <parameter>dont change this</parameter>
            <rstate>DONT CHANGE THIS</rstate>
        </subsection>        
        <subsection>
            <parameter>dont change this</parameter>
            <rstate>CHANGE_THIS</rstate>
        </subsection>
    </section2>
    <section3>
        <parameter>dont change this</parameter>
        <rstate>DONT CHANGE THIS</rstate>
    </section3>
</map>
';

my $t = XML::Twig->new(
    twig_handlers => { rstate => \&rstate },
    pretty_print  => 'indented',
);
$t->parse($x);
$t->print();

sub rstate {
    my ($t, $rstate) = @_;
    my $text = $rstate->text();
    $text =~ s/CHANGE_THIS/CHANGED/;
    $rstate->set_text($text);
}

__END__


<map>
  <section1>
    <parameter>Some text</parameter>
    <rstate>CHANGED</rstate>
  </section1>
  <section2>
    <subsection>
      <parameter>dont change this</parameter>
      <rstate>CHANGED</rstate>
    </subsection>
    <subsection>
      <parameter>dont change this</parameter>
      <rstate>DONT CHANGE THIS</rstate>
    </subsection>
    <subsection>
      <parameter>dont change this</parameter>
      <rstate>CHANGED</rstate>
    </subsection>
  </section2>
  <section3>
    <parameter>dont change this</parameter>
    <rstate>DONT CHANGE THIS</rstate>
  </section3>
</map>