Voice from the distant future: check Generate random strings from regular expression which introduces String::Random::Regexp::regxstring

Update: also check Mock::Data::Regex. It worked out of the box for me. Don't forget qr//a, (the /a flag).

bw, bliako