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

[Skeeve]

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

But $i^=$i makes $i 0 at once. So it's different to $i=!$i

Back in the ancient times of C64 Basic I used j=1-j

[eyepopslikeamosquito]

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

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

which does work.