I think you were traveling the right path with your first attempt there. But I'd like to invite you to rethink how you're collecting the information that you plan to process.

my @input = <FILEin>;

Collecting everything all at once. It's not necessary to consume the whole thing, since each part does not rely on another.

I think if you were to

while( my $line = <FILEin>)  {

That would make it clearer to see a solution.

Maybe apply a switch to let you know if this is the first line, which requires opening a new destination and writing to it, or a second line, which requires writing to the destination and then closing it.

my $first_line_indicator=1;
my $outfile_counter=0;
while (my $line = <FILEin>){
  if ($first_line_indicator==1){
    $outfile_counter++;

    # open new write destination
    # write $line;

    $first_line_indicator=0;
  }else{
    # write $line;
    #close write destination

    $first_line_indicator=1;
  }
}

[download]
I hope that points you in the right direction.

In reply to Re: Splitting big file or merging specific files? by prysmatik
in thread Splitting big file or merging specific files? by zarath

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.