Help for this page

Select Code to Download

Select or download this

if ($_ =~ /\r\n/) { $os = "win"; $/ = "\r\n"; }
if ($_ =~ /[^\r]/ && $_ =~ /\n/) { $os = "unix"; $/ = "\n"; }
if ($_ =~ /[^\n]/ && $_ =~ /\r/) {$os = "mac"; $/ = "\r"; }

Select or download this
```
while(<FILE>) {
```