note eyepopslikeamosquito <P> I think [ikegami] meant <CODE>$i^=1</CODE>, i.e.: <CODE> my @words = grep $i^=1, split /(?<=(.))(?!\1)/, $string; </CODE> which does work. </P> 629259 629296