my $lf= "\n";
# "\n" eq ASCII CR implies an old Mac so "\r" is ASCII LF:
$lf= "\r"  if  $lf eq "\xC";