FWIW, a quick search on CPAN for "random" uncovered String::Random which appears to have a simplified reverse regex string generator that would work with your sample. I haven't tested it though.