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