Help for this page

Select Code to Download


  1. or download this
      my $regexp = "/^STOR\\s[^\n]{100}/smi";
  2. or download this
      my $r = Parse::RandGen::Regexp->new(qr/$regexp/);
  3. or download this
      my $r = Parse::RandGen::Regexp->new(eval "qr$regexp");
  4. or download this
    (?smi)^STOR\s[^\n]{100}