sub ProcessFile { 
  my $data=''; 
  my $datalength=0; 
  my $startchar=''; 
  open (RAWFILE, "$processfilename") || die "cannot open: $!"; 
  open (CLEANFILE, ">$cleanfilename") || die "cannot open: $!"; 
  while (<RAWFILE>){ 
    $rawfilelength++; 
    $data = $_; 
    $datalength = length($data); 
    $startchar = ord($data); 
    if ($startchar == $correctstartchar){ 
      if($datalength == $correctstartlength){ 
        chomp $data; 
        chop $data; 
        $data = reverse ($data); 
        chop $data; 
        $data = reverse ($data); 
      }else{ 
        next; 
      } 
      if (length($data) == $correctcleanlength){ 
        print CLEANFILE "$data\n"; 
        $cleanfilelength++; 
      } 
    }elsif ($datalength == $typedlength){ 
      print CLEANFILE "$data"; 
      $cleanfilelength++; 
    }elsif ($datalength > $correctcleanlength) { 
      my $datalengthtrack = $datalength; 
      chomp $data; 
      $datalengthtrack--; 
      chop $data; 
      $datalengthtrack--; 
      $data = reverse ($data); 
      while ($datalengthtrack > $correctcleanlength){ 
        chop $data; 
        $datalengthtrack--; 
      } 
      $data = reverse ($data); 
      print CLEANFILE "$data\n"; 
      $cleanfilelength++; 
    }elsif ($datalength < $correctcleanlength) { 
      next; 
    } 


  } 
  close (RAWFILE) || die "cannot close $processfilename: $!"; 
  close (CLEANFILE) || die "cannot close $cleanfilename: $!"; 
} 
print "\a"; 
exit(0);