local $/ = "\r\n";
chomp @lines;