Is there a module which can generate strings that satisfy a certain regular expression?

qr/^ab?(c|d)$/  =>  qw/ac abc ad abd/;
[download]

My only lead is

$ perl -e 'use re "debug"; /^ab?(c|d)$/'
[download]

which I got from GraphViz::Regex, which parses the output to graph it.
Anything else I should look at?

Obviously there's issues about infinite languages, what does '.' do, unanchored expressions, perl's (?..) features. But let's be "Can Do" people :)

Brad