#!/afs/athena/contrib/perl5/perl

$LS_R="/mit/newtex/share/texmf/ls-R";

open(LS, $LS_R);
while (<LS>) {
    chomp;
    $listed{$_} = 1;
}
close(LS);

while(<>) {
    $x = $_;
    chomp $x;
    $x =~ s@.*/@@;
    $listed{$x} || print;
}