$file =~ s/.pdf$/.doc/;