Here is some starter code. You essentially have an XML file to parse. You need to know How to RTFM and search the site as this sort of task is very common. 

# get your data into a string:
my $data = join '', <DATA>;

# declare a hash variable
my %secs;

# use a regex match to get the bits
while ($data =~ m|<([^>]+)>([^<]+)</\1>|g ) {
    $secs{$1} = $2;
}
print "Regex Method\n";
print "\nSection: '$_'\n", $secs{$_} for keys %secs;

# or use XML::Simple to parse it (generally better) ...
use XML::Simple;
my $hash = XMLin($data);
print "\n\nXML Method\n";
print "\nSection: '$_'\n", $secs{$_} for keys %$hash;

__DATA__
<xml>
  <section1>
  blah1 
  blah1
  </section1>
  
  <section2>
  blah2
  blah2
  </section2>
  
  <section3>
  blah3
  blah3
  </section3>
</xml>

[download]

I would suggest a hash as the data structure because it is easy to index to and delete chunks. XML::Simple will write your hash back to a file for you as well as parse the file directly. Read the docs.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In reply to Re: remove section by section? by tachyon
in thread remove section by section? by einerwitzen

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.