Re^5: Split a string based on change of character

[eyepopslikeamosquito]

I think ikegami meant $i^=1, i.e.:

my @words = grep $i^=1, split /(?<=(.))(?!\1)/, $string;

which does work.