To remove a character from each record in an array, you can use a loop:

tr/\r//d for (@lines);

I'd probably use a chomp while reading lines in, though, depending on your OS. If that's not possible, I'd do the transliteration on each line while reading them in.