Select Code to Download

sub dos2unix {

...
  }
}

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

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

$lines[$i] =~ s/\012//g;