moved missplaces perl sripts