$,="\t";
open(IN,"<hcspln_plforecast.txt");
open(OUT,">plforecast.txt");
$_=<IN>;
$_=<IN>;
while(<IN>) {
y/"//d;
if(/^No_Company/) {next;}
s/#Mi/0.00/g;
split(/,/);
if($_[1] =~ /CC_/) {
if($_[5] =~ /^PL_/) {
$_[0] =~ s/COCD_//;
$_[5] =~ s/^PL_//;
print OUT $_[0],$_[1],$_[5];
splice(@_,0,8);
print OUT "",@_;
}
}
}