Then the likes of Parse::RandGen are probably worth looking at. Here's some sample usage

use Parse::RandGen;

my $p = Parse::RandGen::Regexp->new(qr/a(b|c)d?/);

print $p->pick for 1 ..5

__output__

abd
ab
ac
acd
abd
[download]