$ perl -E '
> @strs = qw{
>    xxxxxxxNNNNNxxxxxNxxxxNNNNNNNNxxx
>    xxNxxxNNNNNNNNNxxxxxx
>    };
> foreach $str ( @strs )
> {
>     print qq{$str : };
>     say join q{, },
>        map length, $str =~ m{(N+)}g;
> }'
xxxxxxxNNNNNxxxxxNxxxxNNNNNNNNxxx : 5, 1, 8
xxNxxxNNNNNNNNNxxxxxx : 1, 9
$