perl to generate string to match regex

I try to find a way to generate string that matches regex, for example, the following regex:

[A-Z]{6,6}[A-Z2-9][A-NP-Z0-9]([A-Z0-9]{3,3}){0,1}

There are some perl modules on Cpan which I tried that doesn't work: -> String::Random -> Regexp::Genex

Any help is appreciated!