Re^2: Howto convert lines in stringified text into element of an array

Your solution truncates all trailing blank lines. That might be acceptable, but I'm mentioning it to let the OP (and other readers who might use this code) decide.

my $file;

my @data_lines;
while (<DATA>) {
   $file .= $_;
   chomp;
   push @data_lines, $_;
}

my @split_lines = split $/, $file;

print(scalar(@data_lines),  "\n");  # 3
print(scalar(@split_lines), "\n");  # 2

__DATA__
foo
bar
[download]

Comment on Re^2: Howto convert lines in stringified text into element of an array Download Code