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