Select Code to Download

EG2;100;22/10/2006;0.185416666666667;04:21:45;C;
EDD;100;22/10/2006;0.207428571428572;02:30:02;W; 04:00:00;W;
EGC;80;22/10/2006;0.284926470588235;05:58:56;S;

EG2;100;22/10/2006;0.185416666666667;04:21:45;C;
EDD;100;22/10/2006;0.207428571428572;02:30:02;W; 
;;;;04:00:00;W;
EGC;80;22/10/2006;0.284926470588235;05:58:56;S;

my $KPIs_fa_infile = "KPIs_fa_TACT_${week}.csv";
open my $KPIs_fa_INFILE, q{<}, $KPIs_fa_infile or die; 
...

close $KPIs_fa_OUTFILE_capa;

EDD;100;22/10/2006;0.207428571428572
EKR;80;22/10/2006;0.0956081081081081
EG2;100;22/10/2006;0.185416666666667
LFP;100;22/10/2006;0.330322580645161
EGC;80;22/10/2006;0.284926470588235

E2F;07:51:21;T
EDD;02:30:02;W
...
EG1;10:24:42;C
EG2;04:21:45;C
EGC;05:58:56;S