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