length $/ also returns 1 on a Windows system.

What I think you'll need to do is to actually write "\n" to a file and check to see how many bytes got written. The translation happens beneath perl, so I don't think there's any way for perl to know (or at least, an easy way to interrogate perl for that info).