chomp( my @array = $file =~ /\G(.*\n|.+)/g );

##</code><code>##

my @array = $file =~ /\G(?=.)([^\n]*)\n?/sg;

##</code><code>##

my @array = $file =~ /\G(.*)(?:\n|(?<=.))/g;

##</code><code>##

open my $fh, '<', \$file;
chomp( my @array = <$fh> );

##</code><code>##

my $array = \@array;