if (uc($^O)=~"WIN") {$/="\r\n"}