note
johngg
<p>A slight variation on the [doc://split] and count solutions.</p>
<code>
$ perl -E '
> $str = q{010011100001110110100110111000001};
> say join q{,}, map tr{0}{}, split m{1+}, $str;'
1,2,4,1,1,2,1,5
$
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-401112">
<p>Cheers,</p><p>JohnGG</p>
</div></div>
1034131
1034131