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