Take a peek at the source code for B::Deparse, a module that takes an in-memory Perl optree and outputs a string of Perl source equivalent to it. Given the /g /i, /m and /r modifiers, it could easily output something like: s/foo/bar/gimr but instead, with typical Perl finesse, it will, if possible, rearrange the modifiers to form a word: s/foo/bar/grim.

The list of words it will try is repeated below...

my %matchwords;
map($matchwords{join "", sort split //, $_} = $_, 'cig', 'cog', 'cos',
+ 'cogs',
    'cox', 'go', 'is', 'ism', 'iso', 'mig', 'mix', 'osmic', 'ox', 'sic
+',
    'sig', 'six', 'smog', 'so', 'soc', 'sog', 'xi');

# ...

my %substwords;
map($substwords{join "", sort split //, $_} = $_, 'ego', 'egoism', 'em
+',
    'es', 'ex', 'exes', 'gee', 'go', 'goes', 'ie', 'ism', 'iso', 'me',
    'meese', 'meso', 'mig', 'mix', 'os', 'ox', 'oxime', 'see', 'seem',
    'seg', 'sex', 'sig', 'six', 'smog', 'sog', 'some', 'xi', 'rogue',
    'sir', 'rise', 'smore', 'more', 'seer', 'rome', 'gore', 'grim', 'g
+rime',
    'or', 'rose', 'rosie');
[download]

I must say, I'm a bit disappointed ;) Leaving out obvious wins like "miracles" and "ideograms"?

And I realize I forgot to try more e's. Heck, I suppose technically all of them can be repeated. Trying a bit harder and a bit looser, there's magicexposure, geodesicmap, supermelodic, and my favorite so far, maliciouspleasure.

-QM
--
Quantum Mechanics: The dreams stuff is made of

Bear in mind that some regexp modifiers are mutually exclusive; for example /a which imposes ASCII semantics on the string being matches, and /l which imposes locale semantics on it. Thus s/foo/bar/miracles is a compile time error.

Here's a quick script to find allowable words...

#!/usr/bin/env perl

use v5.18;
open my $dict, "<", "/usr/share/dict/words";

while (<$dict>)
{
    next unless /^[msixpodualgcer]+$/;
    chomp;
    
    my $ok = do {
        my $testing = $_;
        local $_; # protection
        eval "s/foo/bar/$testing; 1";
    };
    
    say if $ok;
}
[download]

I rather like these ones:

• amigos
• carcass
• circus
• corridor
• crisscross
• gigolo
• girls
• idiom
• igloo
• macrocosm
• macroscopic
• mammograms
• microcosm
• microscopic
• orgasmic
• pompous
• program
• sarcasm
• scissors

Now to find a way to patch B::Deparse...

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name