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