Variable line modify based on current line

[r0adawg]

Hello,

I'm new with perl, I've been able to read and write from file #1 to file #2. file #1 currently is about 60meg of text...

what I would like to do is to read up to 2 char from a constant position and then use that data in a loop to add missing data to the end of the current line x times

the second and third line the # of char will be 4 and at a constant position.

the 2nd and 3rd lines show the number of samples taken... I'm needing to add zero data so that the total samples = 2000, so adding the remainder of what is missing. data could be 0, for each missing sample. again in a loop.

any and all help and/or instruction welcome.

#!c:\perl\bin\perl -w
use strict;
use warnings;

open(INP, '<c:\video\original.txt') or die("Can not open file original.txt for reading\n");
open(OUTP, '>c:\video\fun.txt') or die("Cannot open file fun3.txt for writing\n");

my ($skip) = 14;		#define number of lines to skip
1 while $skip-- && <INP>;	# skip n lines

my ($linecount);

$linecount = 0;
while ( <INP> )
      {
        chomp();
        s/:  /:, /g;
	s/ngth=/ngth=,/g;
        s/ S/ ,S/g;
        s/ G/ ,G/g;
        s/ H/ ,H/g;
        s/  \(LC1/  ,(LC1/g;
        print OUTP "$_";
        $linecount++;

        if ($linecount == 1 )
                {
                print OUTP ";";
                }
        if ($linecount == 2 )
        	{
                print OUTP ";";
                }
        if ($linecount == 3)
        	{
        	print OUTP "\n";
                $linecount = 0;
        	}
      }

close 'INP';
close 'OUTP';
print "DONE!!!\n";

__DATA__
x:  xxxxxxxxxxx   xxxxxxx,  2 xxxxx                  0.0

                  xxxx xx Samples=1278, xxxxxx=500         0,0,0,0
                  xxxx xx Samples=578, xxxxxx=500         0,0,0,0