print $word unless $word =~ /(.).*?\1/;