#!/usr/bin/perl
# Rok Zitko, rok.zitko@ijs.si, August 2006

open(FILES, "<FILES") or die "Can't open FILES\n";

while (<FILES>) {
  chomp;
  my $f = $_;

  # -b : ignore whitespace
  # -I <regex> : ignore changes that just insert or delete lines that match regex.
  # Lines starting with # are ignored (comments!).
    
    print "$f\n";
    system("diff -b -I ^# $f $f.test");
}
