use v5.12;
use warnings;

my $re = templ2regex("Mississippi");

for my $inp (qw/Mississippi Mossossoppo Miiiiiiippi/) {
    if ( my @matches = ( $inp =~ /$re/ ) ) {
        say "Match: $inp re: $re"
            if is_uniq(@matches);
    }
}

# Mississippi -> (.)(.)(.)\3\2\3\3\2(.)\4\2
sub templ2regex {
    my ($template) = @_;

    my ( $re, %grp, $cnt );

    $re .= $grp{$_} // do { $grp{$_} = "\\" . ++$cnt; "(.)" }
        for split //, $template;

    return $re;
}

# @_ elements all distinct?
sub is_uniq {
    my %uniq;
    @uniq{@_} = ();
    return @_ == keys %uniq;
}