# No two repeated characters

my @set = qw( a b c d e f );
my $len = 12;

my $s = '';
my $i = int(rand(@set));
for (1..$len) {
   $s .= $set[$i];
   $i = ( $i + int(rand($#set)) + 1 ) % @set;
}

print("$s\n");

##</code><code>##

dbadfbabfbcd
deabfadaeafb
edbaceabacad

##</code><code>##

# No more than two repeated characters

my @set = qw( a b c d e f );
my $len = 12;

my $s = '';
my $i;
for (1..$len) {
   if ($s =~ /(.)\1\z/) {
      $i = ( $i + int(rand($#set)) + 1 ) % @set;
   } else {
      $i = int(rand(@set));
   }
   $s .= $set[$i];
}

print("$s\n");

##</code><code>##

aadbadfafbfb
dbfaefababea
efeabbcebbee