##
# 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');