sub slurp {
    my $file = shift or return undef;
    local $/ = undef;
    open( FOO, $file ) or return undef;
    my $buffer = <FOO>;
    close FOO;
    return \$buffer;
}

##</code><code>##

my $content = slurp( $file ) or die "Failed to load file";
my @lines = split /(?:\015\012|\015|\012)/, $$content;

##</code><code>##

$$content =~ s/(?:\015\012|\015|\012)/\n/g;