#!/usr/bin/perl

# by Anatoli O. Krassavine 
# ____________________________
#   kras@nmr1.ioc.ac.ru
#   toli@mephisto.che.uic.edu

  opendir (THISDIR, ".");
  @files = readdir (THISDIR);
  closedir (THISDIR);

  foreach $filename (@files)
    {
      if (
          (
           ($filename =~ /\.java$/) ||
           ($filename =~ /\.html{0,1}$/) ||
	   ($filename =~ /\.txt$/) ||
	   ($filename =~ /\.gau$/) ||
	   ($filename =~ /\.bat$/) ||
           ($filename =~ /\.pl$/)
          ) &&
          (!($filename =~ /end.of.line.pl/))
         )
        {

          open (JAVA, "<$filename");
          @lines = <JAVA>;
          close JAVA;

          open (JAVA, ">$filename");

          foreach $line(@lines)
            {
              $line =~ s/
//g;
              print(JAVA $line);
            }

# end of line cycle

          close JAVA;

          print "$filename\n";
        }
    }