#!/afs/athena/contrib/perl5/perl $LS_R="/mit/newtex/share/texmf/ls-R"; open(LS, $LS_R); while () { chomp; $listed{$_} = 1; } close(LS); while(<>) { $x = $_; chomp $x; $x =~ s@.*/@@; $listed{$x} || print; }