use Text::Diff;

my $diff = diff "saved_system.txt", "current_system.txt", { STYLE => "OldStyle" };

my (@added,@removed);
for(split /\n/,$diff) {
    next if /^\d/;     # skip line numbers
    push @added,$1   if /^> (.*)$/;
    push @removed,$1 if /^< (.*)$/;
}

print "Added files:\n";
for my $file (@added) {
    print $file,"\n";
}

print "\nRemoved files:\n";
for my $file (@removed) {
    print $file,"\n";
}