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

##</code><code>##

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

##</code><code>##

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