$ perl -E '
> $str = q{010011100001110110100110111000001};
> say join q{,}, map tr{0}{}, split m{1+}, $str;'
1,2,4,1,1,2,1,5
$