my @counts = map { length } $string =~ /1(0*)/g;

##</code><code>##

my @counts = map { length } $string =~ /1(?=(.*))/g;