Help for this page
if ($data =~ m/<section1>.*?<parameter>.*?<rstate>(.*?)<\/rstate>/s) { print "found first match! '$1'\n"; ... } # Print to output file print OUT $data;
<map> <section1> ... <rstate>DONT CHANGE THIS</rstate> </section3> </map>