http://www.perlmonks.org?node_id=638449


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

I really dont like the regex magic of the ruby solution, cant you guys think of another solution :-)
How about some inject magic?
x = s.split(//).inject([]) {|a,e| (a.last && a.last[e] ? a.last : a) < +< e; a}