Select Code to Download

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

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

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

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

my $array = \@array;