my @array = $result =~ m{[^\r\n]+}g;