use strict;
my $workdir = "C:/work";
open(IN,"pdffix.txt") or die "Can't open input: $!\n";
while(<IN>) {
    chomp;
    my ($folder,$newfn,$pdfn) = split(/\t/);
    $pdfn =~ s/^\"|\"$//g;
    my $filename = "$workdir/$folder/$pdfn";
    unless (-e $filename) {
        print "can't find $folder $pdfn\n";
    }
}