Hi, I have a data file which contains three sections. Each section is separated by one line starting with '!' and the name of the section. The data corresponding to the section follows on the next line.
I would like to fetch the data of these three sections and put them in three different variables to refer to each one them later on.
I have tried this: 
my $chunk1 =();
my $chunk2 =();
my $chunk3 =();

{
local $/ = undef;
($chunck1,$chunk2,$chunk3) = split(/^\!(sectionname1|sectionname2|sect
+ionname3)$/m, <>);
}

print "$sectionname2\n";

[download]
but that does not work :-( it gives me the the name of the first section... Obviously not what I am looking for.

Any idea ?

Thanks in advance

In reply to Howto separate one file into three and refer to each of these three chuncks later on by benoitl

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.