$lines[$i] =~ s/\r//g;
##</code><code>##

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