print $1 while 'hello' =~ m[(([a-z])(?!\2)[a-z])]g;;
he
lo