#!/usr/bin/perl

srand(time);

#option 1
my @a = ("b","c","d","e","f","g","h","i","j");
my $a = "aaaaaaaaaaaaaaaaaaaaaa";
$a =~ s/a/$a[int(rand(@a))]/g;
print "\noption 1:\n$a\n";

#option 2
my @b = ("b","c","d","e","f","g","h","i","j");
my $b = "bbbbbbbbbbbbbbbbbbbbb";
$b =~ s/b/randme()/ge;
print "\noption 2:\n$b\n";
sub randme {
return $b[int(rand(@b))];
}

#option 3
my @c = ("b","c","d","e","f","g","h","i","j");
my $c = "ccccccccccccccccccc";
for (;;) {
last unless $c =~ s/c/$c[int(rand(@c))]/;
}
print "\noption 3:\n$c\n";

##</code><code>##

option 1:
bbbbbbbbbbbbbbbbbbbbbb

option 2:
gjfcijeeddgbcghddjjff

option 3:
dbjdbhbhdbedfdeifdb