#!/usr/bin/perl -wn

# filters out words with repeated letters

use strict;
use warnings;
use feature qw( say );

my $targlen = 5;

sub uniq {
	# returns unique elements of the given list
	# https://stackoverflow.com/a/7657/6884780
	my %seen;
	grep !$seen{$_}++, @_;
	}

chomp;
next if length != $targlen;
next if (scalar uniq split //) != $targlen;
say;