in reply to Native newline encoding

You can use PerlIO::get_layers(STDIN), as discussed in Querying the layers of filehandles in PerlIO. Assuming, of course, that no one played with the layers.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.