Perl module to generate random strings based on a pattern