#!/usr/bin/env perl

use strict;
use warnings;

use Path::Tiny;
use Algorithm::Diff qw/diff/;

my @lines1 = path('GoodFile.txt')->lines;
my @lines2 = path('BadFile.txt')->lines;

my $diff = Algorithm::Diff->new( \@lines1, \@lines2 );


while( $diff->Next() ){
    next if $diff->Same();
    print $diff->Items(2), "\n";
}
exit;