Select Code to Download

#!/usr/bin/perl

...
my $file = do { local $/; <> };
$file =~ s/\x0A|\x0D\x0A?/\n/g;
print $file;