Revert perl scripts