use File::Copy;

$dir="C:/Users/Beni/Documents/Master 2/_DOSSIERS/_Perl/dossiertest";
$cpt=0;
print"Souhaitez-vous supprimer les fichiers copies du dossier racine une fois la copie terminee ? (oui/non) : ";
chomp ($del = <>);

opendir(DIR,$dir); 

while($folder=readdir (DIR)) { 


	if ( -f "$dir/$folder") { 
		$folder =~m/(.+)?\.(.+)?/;
			
				if ( -d "$dir/Fichiers $2") { 
					copy ("$folder","$dir/Fichiers $2/$folder");
				} else {		
					$dirr = $dir . '/' . "Fichiers " . $2;
					mkdir ("$dirr"); 
					open (DIRR,$dirr);
					copy ("$folder","$dir/Fichiers $2") ;
					
					close (DIRR);
				}
				
				$cpt++;
					if ($del=~m/^oui$/i) {
						unlink ("$dir/$folder");
					}
					
	}
}
print"$cpt copies effectuees";
close (DIR);