use Socket qw(:DEFAULT :crlf);
local ($/) = LF;
$lines[$i] =~ s/$CRLF/$LF/g;