How about this:

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

-- Dan