Another way to correct it is to use open with the :crlf IO layer (if that's the correct term):

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $file = qq{Line 1\r\nLine 2\r\nLine 3\r\n};
open my $inFH, q{<:crlf}, \ $file or die $!;

while ( <$inFH> )
{
    chomp;
    say qq{>$_<};
}

close $inFH or die $!;'
>Line 1<
>Line 2<
>Line 3<
[download]

I hope this is of interest.