G'day princepawn,

dws noted the problem with your code above, with those pesky characters in between. You might find the following snippet useful.

use constant (randchars => join("",'a'..'z','A'..'Z'));
use constant (randchars_len => length(randchars));

sub letter {
    return substr(randchars,int(rand(randchars_len)));
}
[download]

Of course, TMTOWTDI. The above code uses constant strings to maximize speed.

Cheers,
Paul