use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Useqq=1;

open my $fh, '>:raw', 'test.txt' or die $!;
print $fh "x\ry\r\n";
close $fh;

open $fh, '<', 'test.txt' or die $!;
my $in = <$fh>;
close $fh;
print Dumper($in);  # "x\ry\n"

open $fh, '<:raw', 'test.txt' or die $!;
local $/ = "\r\n";
chomp( $in = <$fh> );
close $fh;
print Dumper($in);  # "x\ry"