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

##</code><code>##

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