Select Code to Download

sub slurp {
    my $file = shift or return undef;
...
    close FOO;
    return \$buffer;
}

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

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