use String::Random; $foo = new String::Random; # e.g. AqF8, YcE2, BjW8 ... $string = $foo->randpattern("CcCn"); #### # define vowels $foo->{'V'} = [ qw(a e i o u) ]; # define common consonants $foo->{'Q'} = [ qw(r s t n m) ]; # e.g. retom, satan, timis ... $string = $foo->randpattern("QVQVQ"); #### # e.g. 342, 289, 832 ... print $foo->randregex('\d\d\d');