use String::Random;
my $pattern = new String::Random;
my $size = 8;
# don't use i,I,1,l,L,0,O, etc..
$pattern->{'A'} = [ 'A'..'H', 'J', 'K', 'M', 'N', 'P'..'Z', 'a'..'h', 'j', 'k', 'm', 'n', 'p'..'z', '2'..'9' ];
print $pattern->randpattern('A' x $size);