Select Code to Download

my $newline;
for my $test ("\015\012","\015","\012") {
...
  $newline = $test;
  last if /$test/;
}

# Default to unix.
my ($newline) = /(\015\012|\015|\012)/ ? $1 : "\012";

# Default to unix.
my ($newline) = /(\015\012?)/ ? $1 : "\012";