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