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