#!/usr/bin/perl -w

 @files = </myserver/incoming/*.txt>;
 foreach $file (@files) {
 	print $file . "\n";

 	#last unless defined $file;
   	open(IN,$file) || die ("Could not open file");
    open(OUT131,'>>/myserver/outgoing/data131.txt');
	open(OUT186,'>>/myserver/outgoing/data186.txt');
	open(OUT999,'>>/myserver/outgoing/data999.txt');
	
	while (<IN> ne "") {

	  my $line = $_;

	  chomp($line);	 
	  
	  my $firstchar = substr($line,0,1);
	  if($firstchar eq "#")
	  {
	  	next;
	  }
	  
	  my @vars1 = split( /\|/, $line );
        if (@vars > 7) {
             my $type = substr( $vars[7], 0, 3);
              if($type eq "131") {
				print OUT131 $line . "\n";
			  } elsif($type eq "186") {
				print OUT186 $line . "\n";
			  } else {
				print OUT999 $line . "\n";
			  }
        }

	} 

   close(IN);
   close(OUT131);
   close(OUT186);
   close(OUT999);
   my $newfile='/myserver/incoming/processed/new_file.txt';
   #rename $file, $newfile; 
   #use File::Copy;
   #move($file, $newfile) or die "The move operation failed: $!";

 } 
 exit 0;