gistfile1.txt

#!/usr/bin/perl

=encoding UTF-8
=cut

=head1 DESCRIPTION

=cut

# common modules
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);

use DDP;
use Carp;
use String::Diff;
use File::Slurp;
use Term::ANSIColor;

# global vars

# subs

# main
sub main {
    my $one = read_file('one.json');
    my $two = read_file('two.json');

    say String::Diff::diff_merge(
        $one,
        $two,
        remove_open => Term::ANSIColor::RED(),
        remove_close => Term::ANSIColor::RESET(),
        append_open => Term::ANSIColor::GREEN(),
        append_close => Term::ANSIColor::RESET(),
    );

}
main();
__END__