Re^2: Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...)

If you don't mind the different order of the output...

... and also don't mind the possible loss of some intended output:

# OP's solution, given a different input:

$ perl -le'print $1 while "ZBBBCZZCZ" =~ /((.)\2*)/g'
Z
BBB
C
ZZ
C
Z

# jwkrahn's solution for that input:

$ perl -le'print for keys %{{"ZBBBCZZCZ" =~ /((.)\2*)/g}}'
Z
ZZ
BBB
C
[download]

(Not to mention that the OP approach wins at golfing. :)

Comment on Re^2: Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...) Download Code