I am not sure this is fast to write (it was for me, though). We will have to wait for other solutions to benchmark its speed.

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