my $r = Parse::RandGen::Regexp->new(eval "qr$regexp");