$word =~ /(e)(?!\1)(.)e/s;