use strict;
use warnings;

use File::Slurp;
use Data::Dump qw{dump};

undef $/;

my $file_slurp = read_file('file');

open my $FILE, '<', 'file' or die $!;
my $normal = <$FILE>;
close $FILE;

$normal eq $file_slurp ? print "Yep.\n" : print "Nope.\n";

dump($file_slurp);
dump($normal);



##</code><code>##

Line
Line2
Line3



##</code><code>##

Nope.
"Line\r\nLine2\r\nLine3\r\n\r\n"
"Line\nLine2\nLine3\n\n"