$file_type = '.txt'; if ($Filename !~ m/($file_type)$/) { $new_file_name = $Filename . '.txt'; $ftp->cwd($EffDate); $pwd_source = $ftp->pwd; &fide_msg ("I am here: $pwd_source"); $ftp->rename($Filename, $new_file_name); &f_msg ("$Filename does not have extension of .txt. Renaming file to $new_file_name..."); }