#!/usr/bin/perl

while (<>) {
  $word = $_;
  $dupe = 0;
  for $let ('a'..'z') {
    $dupe = 1 if ($word =~ /$let.*$let/);
  }
  print $word unless ($dupe);
}