#!/usr/bin/perl -w

use strict;
use Parse::RandGen::Regexp;

my $regexp = "/^STOR\s[^\n]{100}/smi";
my $r = Parse::RandGen::Regexp->new($regexp);
my $string = $r->pick(match=>1, captures=>{}); 
print("\$string: $string\n");