use strict;
use warnings;

open my $outFH, q{>}, \ my $dataFile
   or die qq{open: > scalar ref.: $!\n};

print $outFH
   qq{1,2,3\r\n},
   qq{4,5,6\r\n},
   qq{7,8,9\r\n};

close $outFH
   or die qq{close: > scalar ref.: $!\n};

{
    print qq{\nSetting input record separator to CRLF\n};

    local $/ = qq{\r\n};
    open my $inFH, q{<}, \ $dataFile
       or die qq{open: < scalar ref.: $!\n};

    while( <$inFH> )
    {
        print qq{Line $.\n};
        print
           qq{  Original: },
           qq{@{ [ map sprintf( q{%#.2x}, ord ), split m{} ] }\n};
        chomp;
        print
           qq{   Chomped: },
           qq{@{ [ map sprintf( q{%#.2x}, ord ), split m{} ] }\n};
    }

    close $inFH
       or die qq{close: < scalar ref.: $!\n};
}

print qq{\nOpening file in "<:crlf" mode\n};

open my $inFH, q{<:crlf}, \ $dataFile
   or die qq{open: < scalar ref.: $!\n};

while( <$inFH> )
{
    print qq{Line $.\n};
    print
       qq{  Original: },
       qq{@{ [ map sprintf( q{%#.2x}, ord ), split m{} ] }\n};
    chomp;
    print
       qq{   Chomped: },
       qq{@{ [ map sprintf( q{%#.2x}, ord ), split m{} ] }\n};
}

close $inFH
   or die qq{close: < scalar ref.: $!\n};