$path="/work/slaguerr/MISE11/Pyrocleaner";
$project="MISE11";

for ($i=48;$i<49;$i++) {

	@files = <$path/RL$i/*.qual>;
	foreach $file (@files) {
		$newname = $file;
		$newname =~ s/\.qual/\.fasta\.qual/;
		print "OldName : $file\n";
		print "NewName : $newname\n";
		
		`mv $file $newname`;
		
	}

}
