use 5.012;
use String::Diff;
use Data::Dumper;

my @strings = (
    "This is the wild cat",
    "Thsi is the widl cat",
);

my $diff = String::Diff::diff_merge(
    @strings,
        remove_open => "<mismatch>\x08",
        remove_close => "\x08",
        append_open => '',
        append_close => '</mismatch>',
);
$diff =~ s/\x08.+?\x08//g;

say $diff;

__END__

Th<mismatch>si</mismatch> is the wi<mismatch>dl</mismatch> cat

##</code><code>##

use 5.012;
use String::Diff;

my @strings = (
    "This is the wild cat",
    "Thsi is the widl cat",
);


say "diff_regexp  =>  ", String::Diff::diff_regexp( @strings );
say "diff_merge   =>  ", String::Diff::diff_merge( @strings );

__END__
diff_regexp  =>  Th(?:i)s(?:i)\ is\ the\ wi(?:l)d(?:l)\ cat
diff_merge   =>  Th[i]s{i} is the wi[l]d{l} cat