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


in reply to Re^4: Split a string based on change of character
in thread Split a string based on change of character

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

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