$lines[$i] =~ s/\015\012/\012/g;
$lines[$i] =~ s/\n/\012/g;
$lines[$i] =~ s/\x0D\x0A/\012/g;
$lines[$i] =~ s/\015\012/\x0A/g;
$lines[$i] =~ s/\n/\x0A/g;
$lines[$i] =~ s/\x0D\x0A/\x0A/g;