my $regexp = "/^STOR\\s[^\n]{100}/smi";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

(?smi)^STOR\s[^\n]{100}