$_ =~ s/\r$// for @lines;