#!/usr/bin/perl
use strict;
use warnings;

use IO::All;
use Data::Dumper;

my @lines1 = io('one.txt')->chomp->slurp;
my @lines2 = io('two.txt')->chomp->slurp;
# print Dumper \@lines1, \@lines2;

use Algorithm::Diff qw(diff);

my @sdiffs = diff( \@lines1, \@lines2 );
print Dumper \@sdiffs;

__END__

$ perl test.pl
$VAR1 = [
          [
            [
              '-',
              13,
              '     EJHFG'
            ]
          ],
          [
            [
              '+',
              22,
              '     IJFH'
            ],
            [
              '+',
              23,
              '     LAKJSK'
            ]
          ]
        ];