Revert perl scripts (corrected)