Added clean perl script from moses