in reply to
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.
Postpone until later
Each and every
Results (175 votes),