- or download this
use String::Random;
$foo = new String::Random;
# e.g. AqF8, YcE2, BjW8 ...
$string = $foo->randpattern("CcCn");
- or download this
# 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");
- or download this
# e.g. 342, 289, 832 ...
print $foo->randregex('\d\d\d');