1.1 ! www 1: $fn=shift; ! 2: system ("cp $fn $fn.original"); ! 3: open(IN,"$fn.original"); ! 4: open(OUT,">$fn"); ! 5: while ($line=<IN>) { ! 6: $line=~s/[\n\r]+$/\n/; ! 7: print OUT $line; ! 8: } ! 9: close(IN); ! 10: close(OUT);