#!/usr/bin/perl+
−
+
−
undef $/;+
−
+
−
foreach $f ( @ARGV ) {+
−
    if ( open( F, "< $f" ) ) {+
−
	$i = <F>;+
−
	close F;+
−
	$i =~ s/\n/\r\n/g;+
−
	$i =~ s/\r+/\r/g;+
−
	if ( open( F, "> $f" ) ) {+
−
	    print F $i;+
−
	    close F;+
−
	}+
−
    }+
−
}+
−