$word = "eee"; $word=~/(e)([^\1])e/;