#!/usr/bin/perl -s

foreach $file (@ARGV) {
  print "$file\n";
  open(F,"<$file");
  @lines=<F>;
  close(F);
  $lines = join '', @lines;

  $lines =~ s|\r\r|\r|gis;
  $lines =~ s|\r\n|\n|gis;
  $lines =~ s|\r|\n|gis;
  $lines =~ s|\r|\n|gis;
  $lines .= "\n" unless $lines =~ m/\n$/;

  open(F,">$file");
  print F "$lines";
  close(F);
}