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