my $newString = join ', ', map length, split /1+/, $string;