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