####Leo "Blue_Reception.ka" y le quito enters
for($it=0; $it<= 20; $it++){
open (file, "Red_Reception.ka");
$co=0;
while(<file>){
chomp($_);
$da[$co]="$_";
$co++;
}
close(file);

#Asigno variable con tiempo de expocicion
$time=$it*5;
#Sustituyo fotones en los dos inits
for($j=0;$j<$co;$j++){
#$da[$j]=~ s/\%init\:\ \d+ \* \(lov/\%init\: $date \* \(lov/;
$da[$j]=~ s/\%mod\: \$T\>(\d+) do \'PhotRadiat\'\:\=200/\%mod\: \$\T>$time do \'PhotRadiat\'\:\=200/;
}

open (OUT, ">Red_Reception.ka");
for($j=0;$j<$co;$j++){print OUT $da[$j]."\n";}
close(OUT);

$x = system("./simplx-4.321..10548_wo_gui --sim Red_Reception.ka --time 500 --plot data --gp");
print $it."\n";

open(file,"data");
open(ofile,">>data_final");
while(<file>){
chomp($_);
if($_=~ /^\D/){
#print ofile "[Phot]\t".$_."\n";		#Or not, header
}
else{
print ofile $time."\t".$_."\n";
}
}
close(file);
close(ofile);
}