1 #!/usr/bin/perl

     2 

     3 undef $/;

     4 

     5 foreach $f ( @ARGV ) {

     6     if ( open( F, "< $f" ) ) {

     7 	$i = <F>;

     8 	close F;

     9 	$i =~ s/\n/\r\n/g;

    10 	$i =~ s/\r+/\r/g;

    11 	if ( open( F, "> $f" ) ) {

    12 	    print F $i;

    13 	    close F;

    14 	}

    15     }

    16 }