while ($filename = readdir(DIR)) # read all entries in directory { if (-f $filename) { if ($filename ne $SumRptName) # do NOT include the summary report file { $FileExt = ""; ($BaseFileName, $FileDir,$FileExt) = fileparse($filename, qr/\.[^.]*/); print "$FileExt\n"; if ($FileExt eq ".xlsx") # look for either .xlsx or .pdf || if ($FileExt eq ".pdf") { if (length($FileExt) > 3) { $FileExt = substr($FileExt, 1, 3); $OverrideExt = "/FileType=$FileExt "; } else { $OverrideExt = ""; } if ($FolderPerFile) # add BaseFileName to folder path { $Finalfld = $fld . $BaseFileName . "/"; } else { $Finalfld = $fld; }