if($folder_path =~ s/^\Q$sourcedir/Eitv9/) {
            print "\n$folder_path/$file";}