# $/ = "\x0d\x0a"   # this is default (OS = Win32)
tie my @array, 'Tie::File', $file, mode => O_RDONLY, memory => 0 or die $!;   # ReadOnly und *no MemBuffer* !!
# $_ =~ s/\r?\n/\n/g for (@array);  # doesn't work because $file will be written
$n_recs = @array;  # how many records/lines are in the file?
unless ($n_recs > 1) {
   untie @array;
   local $/ = "\x0a";
   tie @array, 'Tie::File', $datei, mode => O_RDONLY, memory => 0 or die $!;
   $n_recs = @array;
   print join ("~LF~", @array);   # test to see...
   die "Sorry -- only one line!\n" unless $n_recs > 1;
}