in reply to string manipulation

print join ', ', map length, split /1+/, $string;

Update: Beaten to it by hdb and choroba. Should have re-checked existing replies before posting. Mea culpa.

In Section Seekers of Perl Wisdom