Select Code to Download

use File::Slurp;

my $text = read_file('filename');
$text =~ s/\r\r/\r/g;
print $text;