#!/usr/bin/perl


chop($file_list=`echo *.DOC`);
@files=split(/ /,$file_list);
foreach $doc ( @files ) {
  $newfile=$doc;
  $newfile=~s/.DOC$/.doc/;
  print "Processing: $doc -> $newfile\n";
  open(IN,"<$doc");
  open(OUT,">$newfile");
  while (<IN>) {
    s/
//g;
    s///g;
    print OUT;
  }
  close(IN);  close(OUT);
}

exit;