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