Select Code to Download

if ($folder_path =~ /^$sourcedir/) {
  $folder_path = File::Spec->catdir('Eitv9',substr($folder_path, lengt
+h $source_dir));
}

$folder_path =~ s/^\Q$sourcedir/Eitv9/;