foreach my $file (@files) {
   my $filename = basename($file);
   open(OUTFILE, ">>$output_path/$filename") or die($!);
   open(INFILE, $file) or die($!);

   while(<INFILE>) {
      chomp;
      my $line = $_;

      if($line !~ /^#/) {
         $line = clean_rule($line);
      }

      print OUTFILE "$line\n";
      #print "$line\n";
   }

   close(OUTFILE);
   close(INFILE);
}