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

[eyepopslikeamosquito]

As you might expect, I was tempted to (ab)use the magical $| flip-flop variable:

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

but was able to restrain myself. :-)