use warnings;
use strict;

my $file = <<'FILE';
foo
bar
qux
foo foo foo
FILE

my @lines = split $/, $file;

print "$_\n" for @lines;