use strict
my $source = "c:/ftproot/$report";
my $fil_count = 0;
my $delim = 'FAX#';
open IN, "c:/ftproot/$report" 
     or die "Can't open $report: $!\n";
open OUT, ">$filename" 
     or die "Can't write to $filename: $!\n";
while (<IN>) {
     if (/^(.*?)$delim(.*)$/) {
          seek (OUT,2,1);
  	  read (OUT, my $num,4);
  	  my $fax = join("",$num,"F",$fil_count,".txt");
  	  my $apollo="c:/reports/$fax";
	  my $daym=(localtime(time()))[3];
	  my $afis3="c:/afis3too/$daym/$fax";
	  print OUT $1 if $1;
          foreach my $dest ($truth, $afis3, $apollo,$zenos, $faxarc) {
	  copy (<IN>, $dest);
	 }	
	  close OUT;
    	  $fil_count++;
    	  open OUT, "> $filename" . $fil_count . ".txt" 
               or die "Can't write to out${fil_count}.txt: $!\n";
          print OUT $2 if $2;
	} else {    		
          print OUT $_;
  	}
	}
close IN;
close OUTPUT;
unlink $source;