String::Diff usage script

gistfile1.pl

#!/usr/bin/env perl
use 5.010;
use warnings;
use strict;
use String::Diff;
use Term::ANSIColor;
use Encode;

print "line1: ";
chomp(my $line1 = readline *STDIN);

print "line2: ";
chomp(my $line2 = readline *STDIN);

say "==result==";

$$_ = decode 'UTF-8', $$_ for \$line1, \$line2;

say encode 'UTF-8', $_ for String::Diff::diff(
    $line1, $line2,
    remove_open  => color('bold red'),
    append_open  => color('bold green'),
    remove_close => color('reset'),
    append_close => color('reset'),
);