How Can I remove the PATH and get just the basename? How can I get just *.pdf, if this directory had different files in it? (like *.tif files)

1) use File::Basename

  use File::Basename qw(fileparse);
  my ($path,$file,$suffix) = fileparse ("filename", "\.[^\.]+$");
[download]

2) You have a list of filenames. Just grep those out you want:

@lines = grep { /\.tif$/i } readdir (DIR);
[download]